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I. INTRODUCTION 


A. BACKGROUND 

To this date, many tactical control and decision 
systems have been designed and implemented in various 
places, where the nature of the job required fast response 
and decision making. The NTDS (Navy Tactical Decision 
System), for instance, is one such system implemented for 
U.S. Navy ships in 1962, and is still in use today, with 
recent hardware modifications. 

The revolutionary developments in the LSI (Large Scale 
Integration) and VLSI (Very Large Scale Integration) 
industries during the period from 1972 to 19&3 have made 
the costs of computing much less expensive than the costs 
of yesterday's systems. Today’s products, which are based 
on these innovations in large scale integration, have 
proved to be more reliable and more versatile than the old 
systems, and they can also te tailored to the needs of 
whatever the nature of the requirements may be. The 
serviceability, availability and inexpensiveness of these 
products, in addition to the above-mentioned features, 
offer both the designers and the implementers an 


opportunity to take advantage of this technology. 
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B. DISCLAIMER 

Many terms used in this thesis are registered trade- 
marks of commercial products. Rather than citing each 
individual occurance of a trademark throughout this thesis, 
all registered trademarks referred to in this thesis will 
be listed below, following the name of the firm holding the 
trademark. 


Ibe! Corporation, Santa Clara, California: 
Intel, Intel @@86, iSEC 86/12A, MULTIBUS, MDS 


Digital Research Corporation, Pacific Grove, . 
California: 
CP/M, CP/M-86, PL/1-89, PL/I-86, TED, RASM-86, 
Pike —-86, DDT-86 


PtaGkue-@ Corporation, Irvine, California: 
REMEX Data Warehouse 


MicroPro International, San Rafael, California: 
Wordstar 


Micropolis Corporation, Chatsworth, California: 
Micropolis 


Lear Siegler, Inc., Anaheim, California: 
ADM-3A 


feeeroRe cos OF THIS THESIS 
The purpose of this thesis is to create a simulation 
model for real time tactical systems which can te used to 
Study the following features: 
1. Multiprocessor system real time performance; 
2. System reliability; 
3. Graphics Display; 


4. Software Engineering. 


re 






In order to carry out these objectives, certain 
hardware changes had to te made. The real time 
applications necessitate the existence of an interrupt- 
driven configuration originating from an accurate timer. 
The interconnections and the appropriate initializations, 
both in the timing (PIT) and the interrupt (FIC) circuits, 
were made on the iSBC 86/12A board, to give the required 
real time clock. After achieving the desired form cf 
operation, the real time executive module (which 
synchronizes the operation of the simulation System 
programs) was tested in an interrupt-driven environment. 
After testing out both the real time executive and most of 
the simulation system programs, the individual execution 
times of the simulation system programs were measured with 
the aid of TIMES.AID, an %INCLUDE file (see Apppendix F). 

It was intended to utilize two iSBC @6/12A single board 
computers in order to study the real time performance of a 
tightly connected multiprocessing scheme. The Intel MDS 
(Micrcprocessor Development System) allows the configura- 
tion of such an expansion, through its 2@ bit MULTIBUS 
backplane. It was also planned to write the required 
software to prevent a single point failure and to gain a 
“graceful degradation in the case of a malfunction in any 


of the single board computers. 
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The ADM-S3A video terminal, with its built-in Retro- 
graphics unit, was utilized for graphics display purposes. 
The Retrographics card contains a Z-8@A eight bit 
microprocessor. This allows the computations for high 
precision graphics to be done by the video terminal. That 
improves the efficiency by removing much of the overhead 
from the iSEC &86/12A single gare: computers. The 
Retrographics unit can also make drawings and erasures 
selectively. This improves the display time, which might 
be lost due to total erasures and redrawings. In other 
words, the selective erasing capability decreases the 
display time, such that the program may Make partial 
erasures, erasures cf single objects. 

The programs written for the simulation model were made 
as modular as much as pessible, to facilitate testing and 
maintenance, and to make room for future alterations. A 
procedure call was placed wherever a critical design 
decision was to be made. This procedure call gives the 
option of changing a critical design decision if one that 
is more efficient is designed. Structured programming and 
efficient data structures were meant to be utilized. 
Circular linked-lists are examples of such a programming 


technique. 
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D. THESIS ORGANIZATION 

The thesis is organized into four chajters. Pie ors — 
ram listings developed to implement the simulation system 
are »appended at the end of the text. THe =faEsSy. Charter 
covers the background, the disclaimer for the trademarks 
used in this thesis, the intended purpose of the troject 
and thesis organization. The second chapter covers the 
system configuration and the hardware components. The 
third chapter deals with software modules written in doth 
PL/I-86 and RASM-86 assembly languages. The program seg- 
ments are discussed in detail in this chapter. Some infor- 
mation about the data structures used in the developement 
of the software are brought up, as well as the initializa- 
tion of the programmable hardware components. In the final 
chapter, some conclusions are presented on the work 


involved in the implementation of the simulation system. 
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TI. SYSTEM HARDWARE 


4A. SYSTEM CONFIGURATION 


The existing system hardware (see Figure 2.1) uses the 
Intellec micrecomputer development system (MDS), which 
allows the expandability required to set up a multi-proces- 
sor system. Within the MDS, the boards required for the 
Operation of the system are interconnected through the 
MULTIBUS backplane. These boards are the following: two 
iSEC 86/12A boards, the front panel control board, an A to 
BD converter board, and two interface toards for disk 
drives. The MUS utilizes an Intel disk drive unit which 
has twe disk drives. Standard 8-inch IEM floppy disks are 
used as the removable storage media. 

Fach iSBC 86/12A board had a RAM capacity of up to 
OFFFF hexadecimal (65535 decimal) eight bit bytes. Since 
the MULTIBUS is a 20-bit address bus, the address space of 
the whole system can be expanded up to 1 megabyte. The 
Single board computers can address this memory space ty 
their e@-bit address bus. Each board is so wired that 
the first 64 Kbyte RAM segment resides on its board (28080 
through FFFFEH). The 64K RAM segments on each toard can be 
wired to >be accessible from the MULTIBUS as dual fported 
memories in the i-megatyte address space. One of the iSBC 


86/12A boards is the master of the master-slave 
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Figure 2.1 - System Interconnection 
multiprocessor scheme. The master board is assigned the 
first S54ksegment (92@@Gh - OFFFFh) where the slave board ‘s 
assigned the second 64K segment (19@00h-1FFFFh). In this 
configuration the A-to-D toard occupies the segment with 
the addresses (D@@OG@h-DFFFFh). The outputs of the A-tc-D 
converter are memory-mapped as eight tit bytes and occupy 
the locations DF7@0H through UDF7@Fd. That is to say that 


they are viewed by the CPU’s in the system as being 
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ordinary memory locations. An analogy to that is that they 
resemble read cnly memory that can only be read but not 
written in to. 

The master iSBC 86/12A is connected to the ADM-3A video 
terminal through it’s serial I/O connector. This is the 
only means of communication of the system to the outside 
world. The results of the simulation are fed to the video 
display through this interconnection. The AIM-3A video 
terminal has a built-in retrograrhics feature. ine 
consequence of this is that the ADM-ZA works not only as an 
alphatetic terminal tut also may act as a graphics device 
due to the fact that the retrographics card itself has a Z- 
8@4 microprocessor built in. This microprocessor allows 
the high precision graphics computations to be done without 
the need of any other external processors. In this case, 
ADM-3A has four operational modes, each one of which has 
an impact on the simulation graphics and will be discussed 


later in this chapter. 


B. HARDWARE 
In the following sutsections the individual components 
that comprise the system hardware are presented. 
1. MDS 
The Intellec Microcomputer Development System (MDS) 
is a complete development tool which allows the 


integration of both microcomputer hardware and software 
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development. The system operates under the control of an 
@G86 microprocessor which supervises all system resources 
such as the main memory, I/0 peripheral devices, and 
Optional system facilities, such as A-to-D converters. 
It can support up to 7 iSBC 86/12A toards in this 


configuration. some of the important boards are presented 


below. 
a. Front Panel Control Board 
The Front Panel Control Beard contains circuits 
for controlling the front panel options. It also provides 


some Signals for bus control, clock generation, and the 
boctstrap program. A bus time-out system is included to 
prevent the CFU from halting operation if a nonexistent 
memory location or an incorrect I/O port is addressed. 
This board produces two types of clock pulses: 
els) Bs Clock  eChG. IMnz.) used in Bus 
transactions; 
(2) Common Clock (18 MHz), used by system 
devices; 
Daeeueski interface Poards 
These two cards contain the disk controller 
interface for each drive in the Disk Storage Unit. 
2. Single Board Computer 
Intel’s Single Board Computer iSBC 86/12A is used 
in the system. It is a memter of Intel’s complete line of 


8- and 16-bit single board computer preducts and is a 
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complete computer system on a Single printed-circuit essem- 
bly. The iSBC 86/12A toard includes a 16-bit central 
processing unit (CPU), 32k tytes (32,768 tytes) of dynamic 
RAM, a serial communications interface (USART), three pro- 
grammable parallel I/0 ports, programmatle timers (PIT), 
yriority interrupt control (PIC), Multibus interface con- 
trol logic, and tus expansion drivers for interfacing with 
other Multibus interface-comrpatible expansion boards. Also 
included is a dual port control logic to allow the iSEC 
86/12A board to act as a slave RAM device to other Multibus 
interface masters in the system, as is the case in this 
project. In the current state of the hardware, the RAM 
capacity of both iSBC 86/12A boards is expanded up to 64x 
bytes by installing an iSBC 209 Multimodule RAM option. A 
read only memory of 16K bytes is also added to both iSB8C 
&6/12A vdoards. The important components that make up the 
iSBC 86/12A board are discussed in the following 
subsections. 
a. Cru 

The iSEC 86/12A Single Board Computer is 
controlled by an Intel 8@&6 16-bit Microprocessor (CPU). 
The 8686 CPU includes four 16-bit general purpose registers 
that may also be addressed as eight 8-bit registers. In 
addition, the CPU contains two 16-bit pointer registers and 


two 16-bit index registers. Four 16-bit segment registers, 
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Specifically: Code, data, extra, and stack segment 
registers; allow extended addressing to a full megabyte of 
memory. The CPU instruction set supports many variations 
of addressing modes and data transfer operations, signed 
and unsigned 8-bit and 16-bit arithmetic including hardware 
multiply and divide, and logical and string operations. 
The CPU architecture permits dynamic code relocation, 
reentrant code, and instruction lookahead. 
b. Serial 1/0 

The serial LAC OT teed S controlled and 
interfaced by an Intel 82514 USART (Universal 
Synchronous/Asynchronous Receiver/Transmitter) chip. The 
USART is individually programmable for operation in most 
Synchronous serial data transmission formats. 

In the synchronous mode, the following are 
programmatle: 

(1) Character length 

(2) Syne character (or characters) 

(Z) Parity 

ie the asynchronous Mode the following are 

programmable: 

(1) Character length 

(2) Baud rate factor 

(stop bits 


(4) Parity 


ek 






In both the synchronous and asynchronous modes, the 
serial 1/0 port features half- or full-duplex, double 
buffered transmit and receive capability. The USART 
transmit and receive clock rates are supplied by a 
programmable baud rate/time generator. 

c¢. Programmable Interval Timer 

Three independent, fully programmable 16-bit 
interval timer/event counters are provided by in Intel 8252 
Programmable Interval Timer (PIT). Each counter is capable 
of operating in either RCD (tinary coded decimal) or binary 
modes; two of these counters are available to the system’s 
programmer to generate time intervals under software con- 
oro) . In this thesis project the counteril is used to 
generate timing pulses required for the real time clock 
operation to the system software. These pulses are sent to 
the PIC via the interrupt matrix as teing an IR1 input 
request. 

d. Priority Interrupt Control 

[te priority interrupt control (PIC) which can 
te programmed to respond to edge-sensitive or level-sensi- 
tive inputs, treats each true input signal condition as an 
interrupt request. After resolving the interrupt priority, 
the PIC issues a single interrupt request to the CPU. 


Interrupt priorities are independently programmable under 





under software control. The programmatle interrupt 


priority modes are: 

(1) Nested Priority. Each interrupt request 
has a fixed priority: input @ is highest, input 7 is 
lowest. This mode of operation is chosen in this 
thesis project; 

(2) Fully Nested Priority. i ice eS 
essentially the same as item (1) above, with the exception 
that the requesting input is not locked out and pending — 
reguests are still accepted; 

faa} Auto-Rotating Priority. Priorities: are 
equal. The last received input becomes the lowest priority 
input; 

oe opecitic Priority - Software assigns the 
priorities; 

(5) Special Mask. Interrupt requests that are 
being serviced are masked out; 

(6) Poll. The CPU’s internal interrupt enable 
is disabled. Interrupt Service is achieved by a 
programmer~initiated Foll command. 

The iSBC 86/1¢2A board provides two sorts of 
interrupts which ere bus vectored (BV) and non-btus vectcred 
(NBV). The former deals with the interruzt requests 
from off-toard sources where the latter deals with various 


on-board sources. The interrupt requests are fed to the 
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under software control. The programmatle interrupt 


priority modes are: 

(1) Nested Priority. Each interrupt request 
igiae a fixed priority: Mipwueo ts Highest, “8<apuy eer 1s 
lowest. This mode of operation is chosen in this 
thesis project; 

(2) Fully Nested Priority. This is 
essentially the same as item (1) above, with the exception 
that the requesting input is not locked out and pending 
reguests are still accepted; 

(3) Auto-Rotating Priority. Priorities are 
equal. The last received input becomes the lowest priority 
input; 

(4S eopecific Priority. Software assigns the 
priorities; 

(5) Special Mask. Interrupt requests that are 
being serviced are masked out; 

(6) Poll. The CPU’s internal interrupt enable 
is disabled. Interrupt service is achieved by a 
programmer-initiated Poll command. 

The iSBC 86/124 board provides two sorts of 
interrupts which are bus vectored (BV) and non-bus vectcrea 
(NBV). The former deals with the interru;t requests 
from off-board sources where the latter deals with various 


on-board sources. The interrupt requests are fed to the 





PIC through the jumpers of the interrupt matrix, which will 
be discussed in the next subsection. 
eee inverruct Matrix 

Interrupt requests may originate from eighteen 
sources without the necessity of external hardware. The 
interrupt matrix connects the selected source lines to a 
maximum of eight selected inputs of the PIC. It is an 
array of pins which can be connected to each other via 
jumper wires. There are two types of pins. The eignteen 
source lines constitute the input pins, where the rins that 
lead to the [RO through the IR? inputs of the PIC 
constitute the output pins. (See Figure 2-2 for the 
interccnnection scheme of this thesis project.) 

f. Dual Port RAM 

The iSBC 86/12A board has an internal bus for 
all on-board memory and I/O o;yerations. Hence, local (on- 
board) operations do not involve the MULTIBUS interface, 
making it available for other iSBC 86/124 boards for a 
multi-processor scheme. Huai port- contro. Lozic™— ls 
included to interface so that the iSBC 86/12A board can 
function as a slave RAM device (or common memory) when not 
in control of the Multitus interface. The CPU has priority 
when accessing on-board RAM. After the CPU completes its 
read or write operation, the controlling bus master is 
is allowed to access RAM and complete its operation. Where 


toth the CPU and the controlling bus master have the need 
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to write or read several bytes or words to or from the on- 
board RAM, their operaticns are interleaved. Por Cry 
access, the on-board RAM addresses are assigned from the 
bottom up of the l-megatyte address space; i.e., 98900- 
OEFFFh. The slave RAM address decoding Ilcgic includes 
jumpers and switches to allow positioning the on-toard RAM 
into any 64-K segment of the i-megabyte system address 
space. The slave RAM can te configured to allow either 
16K, <S2KkK, 48K, or E€4K access by another bus master, with 
the installation of the iSBC 206 Multimodule RAM. inet bs 
thesis project all of the 64K-byte memory of the slave iSEC 
86/12A is made accessible to the master. Furthermore, 
both iSBC 86/1ZA boards are configured to occupy the first 
128K section of the l-megabyte address space. 
S. A-to-D Converter Board 

This board is electrically and mechanically compa- 
tible with any iSBC @6/12A board and with MDS. Both the 
anolog input and output systems are contained on a single 
printed circuit board that is treated as ordinary memory 
locations by the CPU (memory mapping). This board simply 
gets the analog signals form the potentiometers and con- 
verts them to the digital signals compatible with TTL 
Standards. The cutput of the A-to-D converter is one tyte 
per potentiometer input, which varies from +127 to -128. 
This is the maximum value range a fixed binary (7) variable 


can assume in the PL/I language, by definition. So, the 
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software system thinks of the potentiometer value as cian- 


ging tetween +127 and -128. The A-to-D converter tcoerd is 


configured to occupy the segment DOGG: (14th 54K porticna of 


the i-megatyte address space:. 


4. ADM-3A Terminal 


Thais terminal is the only means by which the 
operatcr communicates with the system. It is connected to 
the system with the master iSBC 86/12A toard’s serial 
I/O connector. It is an interactive device which is used 


to enter, display, and send information to a hest computer, 
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and to receive and display information Peet that computer. 
The information exchange tetween the terminal and the 
computer is made at different baud rates, ranging up to 
1S2090. In this scheme, a 9600 Daud rate is used. The 
keyboard contains 59 keys. The display memory is a RAM 
which is capable cf holding 1920 characters. Data 
Characters are displayed on 24 or 12 equally-spaced rows, 


each consisting of 8@ columns. 


The 8G-512 Retrographics printed circuit board is 
added to the ADM-CA terminal to extend the data and 
graphics display capabilities with the aid of a Z-8@A 
built-in microprocessor. The RG-512 employs the bit map 
method of storing graphic images. Dats see Onma tlcn 25 
stored ina digital memory as arectangular arrey of 
bits. Each bit is mapped onto the CRT screen and can cause 
a tright spot to be displayed. The RG-512 displays graphs 
and pictures by Writing the proper tits into the 
graphics memory. One of the important features of the RG- 
51i2 is the ability to erase portions of the screen 
selectively. This is desirable when the ajpplication 
reguires the use of dynamic displays employing motion or 
rotation to convey information. The RG-5i2 has four modes 
of operation. These are the ADM-3A Alpha Mode, the 49192 


Alpha Mode, the Point Mode, and the Vector Mode. The first 
cne is equivalent to the operation of ADM-ZA without RG- 
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BIZ. The latter three modes Make use of the bit map 
method. 
6. Potentiometers 
Two sets of triplet potenticmeters are used as 
Simulating analog sensor information sources. They feed 


anolog signals to the input of the A-to-D converter board, 


varying tetween -5V and +57V. 
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A. GENERAL INFORMATION 

A modular and extensible simulation program is 
aimed at simplifying the debugging and testing phase and at 
facilitating possibdle alterations. The hierarchy of the 
modularity is composed of a head module and four second- 
level modules connected to the head module. These second- 
level modules are the initialization module, the simulation 
System module, the real time executive module, and the 
dynamic debugving tool module. These modules are 
separately compiled PL/I-86 and RASM-86 programs. Each 
main mcedule is further subdivided into third-level modules 
to gain a finer granularity of modularity. In the 
programs, two useful special features of PL/I-86 are 
used. Those are %INCLUDE and ZREPLACE statements. Ey 
those statements, global declarations that are the same in 
the scope of the simulation program need not tbe declared 
within each and every module. Instead, they are grouped 
together in the GLOBALS.INP declaration file. The &ZREPLACE 
Statement allows constants to be declared as in the other 
high-level languages like Pascal, such that the value of 
the constants can be changed without having to go through 


every program segment in which they occur. 
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2. Data Structures 

Linear arrays and arrays of structures (records) 
are used in the simulation program as data structures. 
These data structures are then linked to each other to 
establish circular linked lists. Figure 3.1 (on the next 
page) explains the general picture of tne circular linked 
Pists in the simulation program. Fixed size data 
structures with fixed binary pointers are used in the 
program, rather than pointer data, to avoid the dynamic 
System overhead end to retain the benefit of random access 
capabilities inherent to linear arrays. 

The structure SHIP has two pointers, in addition to 
the fields that hold specifications about the ships in the 
area. Those pointers, PTR and LINK-SHIP have different 
purposes for different ships. SHIEGw) + Toten stance, 
Reine the ownship points to two different circular linked 
lists. PTR points to the enemy ship’s circular linked list 
by pointing to the target ship which is engaged (tracked) 
for the sea battle. The other pointer, LINK-SEIP points to 
the friendly ships circular list. The PTR field of other 
ships, on the other hand, points to another circular linked 
list, WAKE, to record their past positicns that will be 
used for tracking and display purposes, where LINK-SIP 
points to the other ships in their category. The reason 


for using circular lists in this program is the ease with 
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Figure ¢.1 The structure of the circular linked lists 


which one traverses through the lists and which does not 
necessitate the use of ancther external rointer. 
So. Other Features 

The PL/I exception handlers (ON tbody statements) 
are used extensively in the dynamic debugging module, and 
in various interactive parts of the program, to intercept 
the error conditions that might te raised during the 
testing and execution of the program. The ON body 
statements are contained in the ERRHAND.AID file, which is 
an INCLUDE file. Upon receiving the control through a 


raised error condition, the statements in the file prompt 
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the user and give the control over to the REENTRY.PLI 
interactive debugging tool. 

One of the exceptional features of the simulation 
program is the use of non-local goto statements which are 
unacceptable in structured style of programming. It is an 
inevitable requirement, by the PL/I language, to suppress 
the raised error conditions by a non-local goto statement. 
It is also used in some parts of the dynamic debugging 
module, in order to by-pass the flow of control over to the 
debugging program when the optional ERRORON boolean switch 
mS closed. Explicit comments are offered wherever non- 
local goto statements are used, to avoid confusing the 


reader. 


B. SOFTWARE FUNCTIONAL DESCRIPTION 
In the following sections, the structure of the modules 
and the programs that belong to those modules are 
described. The program listings are presented as 
appendices. 
1. Head Module 
a. WAR.PLI 
This main procedure is the head node of the 
hierarchical structure of the precedures used to modularize 
and structure the implementation of the simulation program. 


It contains two call statements, one of which is to 


the initialization module, to set up the tactical database 
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and to initialize various external variables that are used 
throughout the simulation program. The other call is for 
passing the control to the real time executive module where 
the control stays for the rest of the program execution. 
A listing of WAR.PLI is presented as Appendix A. 
2. Initialization Module 
a. INITVARS.PLI 

This PL/I routine, when called from the main 
procedure, constructs the tactical database in an 
interactive manner. It first initializes the pool of 
available SHIP and WAKE modes for later use. It then gets 
the interval of time which is used to update the 
information atout ships in the tactical area and other time 
dependent functions. This time interval must te equal to 
the period of the real-time interrupts which depend on the 
timing constants used during the initialization of PIT. 
Detailed information will be presented later under the 
hardware initialization section. Then the control proceeds 
to establish the tactical database interactively. in this 
session, the initial information about azimuth, range, 
friend or enemy are written to the proper fields. Then, a 
circular linked list of four nodes is composed and the PTR 
field is made to point to that list. Finally, dependent on 
whether friend or foe, that particular node is added to the 
aptropriate circular linked list. INITVARS.PLI makes use 


of various internal subroutines for linked list 
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operations. Those subroutines simply extract a node from 
the fool of available nodes. After establishing the linked 
lists, the INITVARS.PLI initializes external variables that 
are used throughout the program. A listing of INITVARS.PLI 
is presented in Appendix B. 


S. Simulation System Module 


perform the simulation under the control of the real-time 
executive module. The following subsections descrite the 
functional description of those programs. The listings of 
the Program segments that comprise this module are 
presented in Appendix C. 
a. TACTICAL.PLI 
This routine has the highest priority among the 
system module programs. It first updates the position of 
each ship in the tactical area by calculating the relative 
velocity and multiplying that with the time interval, which 
is the period of timing interrupts that occur every 25@ 
milliseconds. The control then proceeds to calculate the 
future positions of the ships, for those ships which have 
been in the area for more than 4 seconds, and which are 
included in the enemy ship circular linked list. The 
routine uses the polynomial least Squares curve fitting 
method with Legendre Polynomials. The coefficients are 
pre-calulated for the position of the ship one second after 


the time of calculations, based on the past four wake 





points. TACTICAL.PLI also calculates the trajectory of the 
travelling projectile if the gun is fired. 
bee DISPLAY. PLI 

This routine, which is invoked every second, is 
the interface of the simulation program for the ADM-3A 
screen. It simply traverses the circular linked lists and 
generates the appropriete display objects fcr the Ships, 
their aim points which the own ship aims at, and the gun 
aim point. Tt also displays the travelling projectile if 
it is fired by the system. The routines for generating the 
objects are internal for the DISPLAY.PLI. Another routine, 
TRANSLATE, translates the cartesian coordinates to the 
Stream of characters that represent the x and y grid coor- 
dinates of the RG-512 Retrographic Screen Memory. Finally, 
the internal routine DRAW puts the generated ctjects on the 
screen in vector mode. Mecording to the Key variable, 0D, 
it either sets the data level to white and puts the object 
on the screen, or sets the data level to black and makes 
selective erasures. 

©. SMATUS.PLI 

This routine, which is invoked at every second, 
is the interface of the system to the ADM-3A video terminal 
keybcard. The commands for the system are read from the 
keyboard by calling the serial I/0 chip (USART) interface 
assembly program, KEYBOARD, which will be presented under 


Miscellaneous Assembly Routines. 








The are four toolean variables used in the 
Simulation program. Those are ENGAGED, MAGNIFIED, FIRED, 
and ERRORON. The STATUS .PLI sets these variables 
according to the value of the parameter passed to the 
assembly interface routine. ENGAGED (with "E”) shows if 
the system is engaged to any target (for TACTICAL.FLI). 
MAGNIFIED (with “M’), which is used in DISPLAY.PLI, shows 
which display scale is being used and what the reference 
point of the display is. Usually, the display on the 
screen is relative to own ship. But that can be changed so 
that the ship engaged is at the center to the screen ty 
setting MAGNIFIED true. FIRED (with “F') boolean variable 
is used to commence the tCballistic calculations and 
display. It is used both in TACTICAL.PLI and DISPLAY.PLI. 
Finally, ERRORON (with "D') is used to transfer the control 
to the dynamic debugging module. 

dee IDLEaeLt 

This program is the idle routine for the 
system, as it waits for a 250 millisecond timing interrupt 
Eo. occur. It is the interface program for the six 
potentiometers which are used as sensors for the own ship 
velocity vector, the known ship velocity vector, and the 
gun elevation and bearing. The velocity vectors are com- 
posed of speed and course components. The IDLE.PLI gets 
this information by calling the Analog-to-Digital Converter 


interface assemtly program, ATOD. The control then 





proceeds to convert this information, which is in the fixed 
binary (7) form in range (-128, +127), to approrriate 
coordinate values, e.g. 50 knots maximum speed and the true 
azimuth between @ and 360 degrees. This routine calculates 
own ship velocity compcnents in cartesian ccordinates for 
later use by TACTICAL.PLI. It also makes the initial 
ballistic computations for the gun. 
4. Real Time sxecutive Model 

This module works as the interrupt handler for the 
real time interrupts that are initiated by programmable 
hardware components every 252 milliseconds. It is invoked 
by the WAR.PLI the first time and interrupts thereafter. 
It responds to the timing interrupts, which tell the system 
that data must be collected at this point in time. The 
Module then resolves the priorities of the simulation 
system module programs and arbitrates the flow of control 
during the execution of the system. The real time 
executive module makes use of the operating system 
primitives, which are presented in the following 
subsections. The labels P1 through P4 are associated with 
the simulation system modules TACTICAL.PLI, DISFLAY.PLI, 
STATUS.PLI, and IDLE.PLI, respectively. The listing of the 
programs included in the Real Time Module are presented in 


Appendix D. 
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a. ARBITER.A&86 


This assembly language program is the real 


“workhorse of the entire system. It first allocates stack 
areas for four simulation system during the assembly time. 
Upon invocation by the main procedure, it initializes the 
programmable hardware components and transfers the control 
to the P4.PLI process, which in turn calls IDL=.PLI 
repetitively until the first timing interrupt occurs. The 
interrupt entry point PROC@Z, where tke process switcuning 
starts, is entered by the interrupt software. Anima), S 
point of execution, the external variable fourthevc, which 
Signals the system that 250 millisecond event has occured, 
is updated to the new value by incrementing it by one. 
After storing the state of the program which is interrupted 
during its execution, ARBITER.A86 invokes SCHEDULE.PLI to 
obtain the name of the ready program that has the highest 
priority. If there are none, the interrupted program is 
resumed. If there is any ready process of higher priority, 
then ARBITER.ASE loads the process state and gives the 
Comunol over to it. During this process switching, the 
upper boundaries of the stack areas are checked for a 
possible stack overflow, which could happen if the time 
interval was not sufficiently large for the system mecdule 
routines to finish execution before tne next timing 
interrupt comes. ARBITER.A86 has a second entry fjoint, 
STORESTATUS, for the synchronization primitive AWAIT.PLI to 








enter when the correct number of interrupts for the calling 
synchronization primitive have not yet occured. 
db. AWAIT. PLI 
This synchronization primitive is invoked as as 
an operating system primitive, by any process, Pi through 
Poi. AWAIT compares the value of the external variable 
FOURTHEVC to the threshold value of the calling sana tio 
see if it is greater or equal to the value at which the 
process is to proceed. Lie not theme it ocalis @Ghe 
STORESTATUS entry of ARBITER.A86 to relinquish the control 
to the awaiting ready process, or to the P4.FPLI that calls 
the IDLE.PLI simulation system program as the system idling 
routine. 
c. SCHEDULE. PLI 
This synchronization primitive is called by 
ARBITER.A86 to return the name of the highest priority 
ready process. It does that simply by identifying the 
first ready process on the list. Because the scheduler 
Scans the list in the descending priority order, the 
highest priority ready process will automatically be 
scheduled. 
duno. PLI 
This routine, when invoked by processes Pl 
through P3, increments the corresponding thresholds in an 
external one dimensional array called THRESHOLD. ass 
table is used by the AWAIT.PLI and SCHEDULE .PLI 
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Synchronization primitives to decide whether or not a 
process is ready for execution. 
See hess bl 
This process is basically an infinite loop. 
Within this loop, there are three subroutine calls. The 
routine first makes a call to AWAIT.PLI to see if it is 
time for it to proceed. If not, the control doesn’t come 
back again; instead, the current state of the process is 
stored by ARBITER.A86 and the highest priority ready precess 
is executed. If it is the time, the control proceeds to 
call the simulation system module program TACTICAL.PLI. 
After that, a call to THRESH.PLI is made, where the 
threshold value that is allocated to P1.PLI is incremented 
by the proper value. When the infinite do loop repeats 
itself, the call to the AWAIT.PLI will indicate that the 
process TACTICAL.PLI is not yet ready for execution and 
control is transfered to the highest priority ready 
process. 
Pees lik 
This process is identical to P1.PLI in form 
excerpt the call is to DISPLAY.PLI instead of to 
TACTICAL.PLI. 
Pee veer bt 
This process is identical to Pi.FLI in code 


except the call is to STATUS.PLI. 
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Dees oP] 

This process is similar to Pl through PZ in the 
structure described atove. There is only one call in the 
matinite do loop, which is to IDLE.PLI. This routine is 
always ready for execution and, basically, repeats itself 
until the next timing interrupt comes along. 


3. Miscellaneous Assembly Routines 
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There are few machine dependent functions that 
cannot be accomplished by the high-level language PL/I-86. 
Assembly routines were written to interface the PLI-&6 
programs with the hardware of the 8886 microprocessor. 
These assembly routines are included within the main tody 
of ARBITER.A86. There are two parameter passing 
conventions from PL/I-86 to the assembly language routines. 
In the first one, there is only one argument passed in the 
accumulator, as ina function call. In the subroutine 
calls, which is the case here, the address of the VECTOR 
that contains the pointers to the actual perameters is 
passed in the BX register. The following subsections give 
some descriptions about those assembly routines. Appendix 
E shows the listings of the modules. 

a. KEYBOARD.A86 

This routine is invoked by STATUS.PLI to read 
the keyboard. It is written so that the keyboard status is 
read to see if a key had been pressed instead of waiting 


indefinitely until a key was depressed, as would te the 
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case had the PL/I get statement been used. The program 
first reads in the status of the serial I/O interface chip 
(USART) to see if a character has been received from the 
keyboard. If it has, then the character is read and placed 
into a corresponding character variable, which is the 
formal parameter in the subroutive invocation. If there is 
no character received since the last attempt to read, the 
ASCII equivalent of @ is put in key. The reason for that is 
that the character 9 is not teing used as a command. 
db. ATOD.A86 

This assembly routine is called by IDLE.PLI to 
read the first six Analog-to-Digital Converter Board 
outputs. The reason to write this assembly routine is that 
the Analog-to-Digital Converter ports are memory mapped to 
be in the segment DO@OH. The PL/I function UNSP#C works for 
those memory locations which are included within the first 
64K bytes of memory. The assembly routine sets the proper 
segment and source index registers tc pcint to those 
locations and makes an ordinary read operation. This value 
is then put in the formal parameter passed tc the PLI-86 
routine. 

c. RINGBELL.A86 

This assembly routine simply sends a bell 

character to the video terminal and causes a bell sound to 


ring. This is equivalent to sending a control G in PL/I-86. 
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Mme only difference is that it can te used in other 
assembly routines. 
dee ALT. ASS 
, This assembly routine reads in the status of 
the I/0 interface chip and waits until the transmitter 
buffer is empty; i.e. the character which hai teen in the 
buffer is received ty the video terminal and an 
acknowledgement signal is sent back to the interface chip. 
This routine is used by assembly routines that put out a 
message. 
e. SUSPEND .A86 
This routine simply resets the interrupt bit of 
the program status word (PSW) to disable the @@85 CPU from 
acknowledging the interrupts. It is used by the dynamic 
debugging system to stop the real time clock. 
f. RESUME.A86E 
This routine first sets the interrupt flag to 
enable the 8086 CPU to respond to the interrupt requests. 
It also resets the PIT that is used to generate the timing 


ebock pulses for the PIC. 


LT. INITIALIZATION OF THE PROGRAMMABLE COMPONENTS 
The iSBC 86/12A board has three programmable hardware 
components, which were described in Chapter Il. In the 


following subsections, the initialization sequences for 
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those hardware components which produce the real time 
synchronization are described. 
1. USART Programming 

The @251A USART converts parallel output data into 
virtually any serial output data format. The USART also 
converts serial input data into the parallel data format. 
Prior to starting to transmit or to receive data, the USART 
must ve loaded with a set of control words. These control 
words, which define the complete functional operation of 
the USART, must immediately follow a reset (internal or 
external). There are two types of control words, namely, a 
Mode instruction and a Command instruction. Once the Mode 
instruction has been sent, the’ Command instruction can be 
sent at any time prior to a read/write operation. The 
following assembly code is used to initialize the USART 
read/write mode: 

MOY AL,374H 
OUT @ODAH,AL 
During the course of execution, the serial I/0 

interface routine executes the following assemtly code to 
read the USART status and to read the receiver buffer if 
any character has been received: 


IN AL,@@DAH 


AND AL,O2H 
JZ KEYBOARD1 
IN AL,#O0DeH 


44 





2. PIT Programming 
The 8253 PIT has three independent counters. 
They are Counter @, Counter 1, And Counter 2. The lappy t 
clock frequency is 22.1184 MHz supplied by a crystal oscil- 
Wator. The input clock frequencies can be adjusted via 
jumpers. In this project, Counter 1, with the default 
factory jumper connection (E59-E60), is used. The input 
Peequency is 155.6 KHz. Tt is chosen to work in mode 2 so 


that it gives an interrupt on terminal count. The formula: 


N = TC 
where 
N is the count value for the counter 


T is the desired interrupt time interval 
in seconds 


C is the internal frequency (Hz! 


From the above fermula, the count number for 
the counter 1 is found to be 38490 decimal (S690 hex). 
Since it is not possible to express this number in four 
decimal digits, the binary count mode is selected. The 
counter is initialized by sending a mode control word, 
followed by a down-count numter. Once the counter is 
initialized, sending the down-count number resets it to the 
start condition. The following sequence of code is used to 


program the PIT: 
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MOV AL,S@H 
OUT @ODEH ,AL 
MOV AL,@@# 
OUT @@D2H,AL 


MOV AL,60H 
OUT @O@D6H,AL 
MOV AL,96H 


OUT @8@D2H,AL 


5. PIC Programming 
The @25°A PIC is programmed in the nested mode. 
The master PIC with no slaves is accepted. For this parti- 
cular Situation, the initialization words 1,2, and 4 are 
sent. The initialization word 2 is set to rezresent the 
interrupt vector address. This is the address that the 
control is given when the interrupt 1 occurs (@4E). An 
interrupt mask byte is used to mask out tne ‘irrelevant 
interrupts for the purpose of this thesis. The FIC can te 
reset after each interrupt simply by sending the EOI (end 
of interrupt) status byte to the appropriate address. The 
initialization sequence is as follows: 
CLI 


MOV AL,12H 
OUT §@CZH,AL 


MOV AL,2@E 
OUT @9C2Eh 
Si 


MOV AL,OFDH 
OUT @@C2H,AL 


To reset the PIC, 


MOV AL,2OH 
OUT 90C0,AL 
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E. ASSEMBLY, COMPILING AND LINKING 

The assembly language code was written in RASM-86 and 
assemtled by using the RASM-86 Assembler. This assembler 
produces relocatable files that can then te linked with 
other separately compiled or assembled object files oy Link 
86. This linker accepts three types of input files. Those 
are the object file, litrary file, and/or an input file. 
Input files are very useful tools in that they include 
input command lines by én input file instead of writing the 
command line each time the programs are to be linked. The 
PL/I-86 compiler is used to compile PL/I programs. This 
compiler requires a 128 Kbyte RAM, as opposed to the PL/I- 
8G compiler, which requires 48K RAM. 


F. TESTING 

The hierarchical simulation program modules were 
designed and tested in a top-down manner. An extensive 
dynamic debugging module was used in the testing of 
individual modules (see Appendix F). The testing phase is 
first started with writing a skeletal model for the real 
time executive module. The PL/I-86 output statements 
(stubs), which printed some appropriate numbers, were 
inserted in the places where the simulation system module 
programs were invoked. The DDT86 (Dynaric Debugging Tool) 
was used to test and debug this skeleton program. Since it 


was areal-time interrupt driven program, the interrupt 
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enable tit (I) of the program status word was reset to zero 
(@) to control the flow of the program. Some error 
checkings are inserted in the main assembly language 
program, ARBITER.A86, to see whether the process switching 
was done correctly, or to see if any of the stacks 
allocated to the synchronization primitives have 
overflowed. 

After testing the real-time executive model, the second 
phase was the testing of the subroutines that are used ty 
the simulation system module programs. Appendix G shows an 
example for testing a subroutine. 

The third phase of the testing was to test and debug 
the simulation system program. The dynamic debugging 
module was used for this purpose. This medule is composed 
of FL/I-86 ZINCLUDE files and external PL/I-86 programs. 
The ZINCLUDE files are inserted into the various parts of 
the program being tested. The code of this debugging 
system is bordered with comment lines from the main body of 
the program it tests. It is not visible to the program, 
i.e., it brings its local and global variables with the 
LOCALS.AID declaration Z%INCLUDE file. It is possible to 
manipulate the system’s external variables through the 
debugging system module, IDLE.PLI. 

The PL/I-8@ had teen used in the early stages of the 
testing Bree: because of the existence of redundant Intel 


8888 based systems in the Naval Postgraduate Micro-Lab. 


48 





But in the later stages, it was realized that this had 
caused some problems, due to some incompatibilities tetween 


the PL/I-8@ and PL/I-86 systems. These deficiencies of the 
PL/I-86 have necessitated the testing and debugging of the 
programs to be done in the PL/I-86 based systems, The need 


for such a thorough debugging system module was then 


realized. 
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IV. CONCLUSIONS 

The original objectives of the thesis have teen 
accomplished, to a large extent. The hardwere 
interconnections intended to promote real time clock 
operations have been successful. A test model, which 
comprised the real time executive module and the FL/I put 
Statements, instead cf the simulation system modules, was 
developed to check the system’s operation and timing. 
Correct results appeared on the screen. Then, the testing 
and debugging of the simulation system programs showed that 
their algorithms and operations were correct, with the 
excettion of the simulation system program, DISFLAY.FLI. 
The testing of DISPLAY.PLI shcwed that the odjects to be 
displayed on the videc screen were not successfully put on 
the screen. One error, which was an automatic conversion 
error, was found in the routine TRANSLATE and corrected by 
using a step variable. However, an error still exists in 
the body of the procedure DRAW. 

Since the testing phase of the DISPLAY.PLI has not 
teen accomplished, the objective of Synchronizing two iSBC 
86/12A boards could not be accomplished. The intended 
purpose for this objective was to make the second iSBC 
86/124 jump to a waiting loop with the initial power start 
up interrupt (reset), to load the assigned simulation 


program segment to the common RAM, and to direct it to the 
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beginning of that program segment, through a tus vectored 


interrupt. 

A hierarchical and modular program model was 
constructed through the use of data structures and 
structured programming. The modularization allows possible 
Puture changes to the programs. 

The simulation system prcgram constructed in this 
thesis could be a basis for further enhancements towards a 
complete fire control system, or a related tactical 
Simulation system, due to its modularized nature. 

The dynamic debugging module designed to test and 
debug the simulation system modules can be used for the 
purpose of testing any other programs, simply ty changing 
the names and formats of the variables that the debugging 
system manipulates. The advantage of using the Z%REPLACE 
and ZINCLUDE pre-processor statements, which are peculiar 
to the PL/I-86 version of the subset G, makes such an 


implementation feasible. 


on 





APPENDIX A 


HEAD MODULE PROGRAM LISTINGS 


A. WAR.PLI 


/* 

Frog Name 2 “WAR s PLT 

Date : December 82 

Written by soem Kadri OZyurt 

For >; Thesis 

Advisor : Professor Kodres 

Purpose > This iS the main procedure of the 


modular simulation program. Jt invokes the initialization 
module to set up the target database and tc initialize the 


external variables used throughout the simulation program. 
ug 


WAR: PROCEDURE OPTIONS(MAIN); 


/*external procedures*/ 
DCE 
(INITVARS ,ARBITER) ENTRY; 
/*this call to the initialization module initializes the 
Simulation system*/ 


CALL INITVARS; 


/*this call gives the control over to the real time 
executive module*/ 
CALL ARBITER; 


END WAR; 
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B. GLOBALS.INP 


/* 

Prog Name : GLOBALS.INP 

Date >: December &3 

Written by ; te Sade. OZyurt 

for : Thesis 

Advisor : Professor Kodres 

Purpose : This Zinclude file contains the declara- 


tions of the global variables used in the simulation program 


*/ 


DCL 
(COUNTER ,SECONDS MINUTES, HOURS ,WAKE PTR, 
SHIP PTR,AVAILSHIP ,AVAILWAKE,P ,Q ,NUMBERSGIPS, 
NODE,TARGET,XNOWN) FIXED BIN(7) EXTERNAL, 
FOURTHEVC FIXED BIN(15) EXTERNAL , 


D FIXED BIN(7) EXTERNAL, 

rT. SPRims,T OF,T) FLOAT EXTERNAL, 
‘ole i” XX , YY) FIXED BIN(15), 
CURRENTPROC FIXED RIN(7) EXTERNAL , 


(ENGAGED,MAGNIFIED,FIRED,ERRORON,DONE) BIT(1) EXTERNAL 


KEQeCHARACTER (1) SXTERNAL , 
THRESHOLD(@:2) FIXED BIN‘15) EXTERNAL , 
ARG(@:5) FIXED BIN(7) EXTERNAL, 


(VX_OWN,VY_OWN,VX_ TARGET, VY TARGET, VX REL, 
VY_REL,VX_ROUND,VY ROUND,VR) FIXED DECIMAL EXTERNAL, 


ALPHA FIXED DECIMAL EXTERNAL , 


GA ouUM sas oUM,CA SUM,AY SUM,BY SUM,CY SUM, 

AX En OL. ine BY, Cyn ATS, YoRRS ,.2,Dk DT ATS, 

oe UT ATS, DR_ DT. ATS, ke OFFSET, Y OFFSET, 7M) FIXED DECIMAL 
EXTERNAL, 


(01,02)(5) FIXED DECIMAL EXTERNAL , 


1 SHIP(MAX SHIPS) EXTERNAL, 
2 VELOCITY, 
% COURSE FIXED DECIMAL INIT(@.@), 
3 SPEED FIXED DECIMAL INIT(@.@), 
2 POSITION, 
3 AZIMUTH FIXED DECIMAL INIT(0.@), 
2 RANGE FIXED DECIMAL INIT(@.@), 
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2 COORDINATES, 
3 X FIXED DECIMAL INIT(@.0), 
= Y FIXED DECIMAL INIT (2.6), 
2 RIM: 
3 X_AIM FIXED DECIMAL INIT(Z.@), 
3S Y_AIM FIXED DECIMAL  INIT(@.@), 
COUNT FIXED BIN (7) INIT(Q), 
NUMBER FIXED BIN (7) INIT(@), 
PTR FIXED BIN (7) INIT(@), 
LINK SHIP FIXED BIN (7) INIT(®@), 
FRIEND BIT(1) INIT(FALSE), 


m MM DN 0 


1 OBJECT(MAX_SHIPS) EXTERNAL, 
2 LOCATIONS, 
3 U (@:10) FIXED BIN(15) INIT((11) -1), 
3 V (6:18) FIXED BIN(15) INIT((11) -1), 
2 AIMS, 
SU AIM (6:10) FIXED BIN(15) INIT((11) -1) 
3 V_AIM (@:1@) FIXED BIN(1&) INIT((11) -1) 
2 GUN, 
3 U_GUN (@:10) FIXED BIN(15) INIT((11) -1), 
3 V_GUN (@:1@) FIXED BIN(15) INIT((11) -1), 
2 WAKES, 


3 U_WAKE (@:10) FIXED BIN(15&) INIT((11) -1), 
3 UU_WAKE (@:1@) FIXED BIN(15) INIT((11) -1), 
3 V_WAXE (@:1@) FIXED BIN(15) INIT((11) -1), 
3 VV_WAKE (@:12) FIXED BIN(15) INIT((11) -1), 


1 GUN EXTERNAL, 
2 POSITION, 
3 AZ FIXED DECIMAL INIT(@.2), 
3 ALT FIXED DECIMAL INIT(@.@), 
2 COORDINATES, 
3 X GUN FIXED DECIMAL  INIT(@.@), 
3 Y GUN FIXED DECIMAL INIT(@.@), 


1 WAKE(4) EXTERNAL, 
2 COORDINATES, 
3 X_ WAKE FIXED DECIMAL INIT(S.2), 
3 Y_ WAKE FIXED DECIMAL INIT(@.0), 
2 LINK WAKE FIXED BIN(7) INIT(Q), 


(SUSPEND ,RESUME,ARBITER,INITVARS) ENTRY, 


KEYBOARD ENTRY (CHARACTER(1)), 
ATOD ENTRY (FIXED BIN(7),FIXED BIN(7)); 
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C. CONST.INP 


This Zinclude file contains the constant 


/* 
Prog Name ; CONST.INP 
Date ; December 83 
For : Thesis 
Advisor : Professor Kodres 
Purpose : 
declarations used throughout the program. 
* / 
ZREPLACE 


MAX WAKE BY 4, 

WAS SHIPS BY 2, 
MAXVARS BY 82, 

OWN BY 1, 

RMAX BY 25800.2, 

MAXSQ BY 1.073E+09, 
TOP BY 32767.0, 

G BY 10.7246, 

VM BY 518.2, 

EEE 512), 

B BY 390, 

K BY 1.49625, 

pepe 4.513, 

TWO PI BY 360.2, 

PI BY 3.1416, 

O@ BY 1.8, 

TRUE BY “1°8, 

FALSE BY °O’B, 

NIL BY Q, eet: 
CLEAR_SCREEN BY ““\('L’, 
CLEAR_ALPHA BY “2”, 
VECMOD BY “ )’, 
POINTMOD BY “'\’, 
ALPHA4@10 BY “ \U’, 
ALPHASA BY “ \'_ X’, 
WHITEMOD BY “" [a’, 
BLACKMOD BY “(73 


33 


/*max number of wake nodes*/ 
/*max number of ship nodes*/ 
/*max number of variatles*/ 
/*ownship indicator*/ 

/*max gun range*/ 

/*max argument for SORT */ 
/*max number for fixed (15)*/ 
/*gravitational con.yd/sec2*/ 
/*muzzle velocity*/ 

/*x coord. for center*/ 

/*y coord. for center*/ 
/*azimuth proportionality c.*/ 
/*speed proportionality c.*/ 
/*definition for 260 degree*/ 
/*definition of pi rad/18édeg*/ 
/*legendre poly. of zero deg.*/ 
/*boolean true*/ 

/*bdoolean false*/ 

/¥*in linked list terminology*/ 
/*char. sequence for retro.*/ 


/* “id 
fe : Sa ee 
in : we 
a : ee eee 
fe ee, 
a ey 
po “y 





APPENDIX B 


= wR ee ow ee eo ae 


INITIALIZATION MODULE PROGRAM LISTINGS 


A. INITVARS.PLI 


/* 

Prog Name : INITVARS.PLI 

Date : December 83 

Written by > M. Kadri Ozyurt 

For >: Thesis 

Advisor : Professor Kodres 

Purpose This routine prompts the user to give 


the time interval (at) and constructs the tactical circular 
linked list in an interactive manner. The control then 
eeeeces to initialize the external variables. 


initvars:proc external; 


/* 
ac} 
/ 


SZinclude’const.inp’; 
Yinclude’globals.ingp’; 


/*this iterative loop initializes the pool of available 
wake nodes*/ 
do i=l to max_wake-1; 
link wake(i)=i+1; 
end; 
link wake(max_wake)=nil; 


/*this sequence initializes the pool of available ship 
nodes*/ 
do i=l to max ships-1; 
link ship(i)=i+1; 
end; 
link ship(max Ships )=nil; 
put skip list(’Enter the time interval (dt) in seconds’); 
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/* the following block is an interceptor for a too large 
input value*/ 
on overflow begin; 
put list(°*** too large, try again’); 
goto initi; 
end; 
ipdtet 
put Skip list(%>’); 
get list(dt); 
revert overflow; 
put skip list( “Construction of the tactical database’); 
numberships=9; 
done=false; 


/* this procedure call gets a ship node from the pool of 
available ships and assigns its address to ship pointer*/ 
Ship _ptr=getship(); 
do while ( done); 
put skip list(°Enter the position of “,numbershigs, 
“th ship in true azimuth and in yards’); 
/*the following two on condition bodies are for the input 
line at init2*/ 
on error begin; 
put list(°*** bad value,try again’); 
Pot Inite, 
end ; 
on fixedoverflow tegin; 
put list(“*** too large,try again’); 
goto inite2; 
end; 
mad tc s 
put skip list(%>°); 
get list(azimuth(Ship ptr),range(Ship ptr)); 
revert error; 
revert fixedoverflow; 
put skip list( “Friend or foe (F/E)?°); 
put Ssieip list( >”); 
get list(key); 


/* the following sequence adds the ship node to the 
aperopriate circular linked list, friend ships or enemy 
ships, according to the friend boolean value entered*/ 
if (key=’F’)!(key="f"’) then do; 
friend(ship ptr)=true; 
if link ship\own)=nil then 
link ship(ship ptr)=ship_ptr; 
else 
link ship(ship ptr)=link ship(own); 
/¥end if*/ 
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link ship(own)=ship ptr; 
end /*d0*/; 
else do; 
friend(ship ptr)=false; 
if ptr(own)=nil then 
link ship(ship ptr)=ship ptr; 
else 
link ship(ship ptr)=ptr(own); 
/*end if*¥/ 
-ptr(own)=ship ptr; 
end /*{f*/; 


/* the following procedure call and the iterative loop get 
available nodes from the pool, construct a circular linked 
list of four nodes, and assign the address of the list to 
the tuneepomter of the ship node «which is being 
constructed*/ | 
wake ptr=getwake(); 
=wake ptr; 
do i=l to 4; 
p=wake ptr; 
wake ptr=getwake( ); 
link wake(p)=wake ptr; 
end /*do*/; 
link wake(wake ptri=q; 
ptr(ship ptr)=wake ptr; 
number(ship ptr)=numberships; 
put skip list(’Would you like to enter another “, 
“Ssnic (Y/7Noe 7); 
put skip list(°>’); 
get list(key); 
fie (key= ¥ )!(key="y ) then do; 
ship ptr=zetship(); 
ip -sboip eer—nit thes 
done=true; 
/*end if*/ 
end; 
else 
done=true; 
/*end if*/ 
end /*do*/; 
seconds=d; 
minutes=0; 
hours=0; 
wake ptr=@; 
target=@; 
t_ prime=2.2; 
t_of=0.2; 
t=0.9; 
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friend(own)=true;3 


known=2;3 /* engaged ship no by the sensor */ 


x offset=0.2; 

y_ offset=0.@; 
m=52 .8; 
fourthevc=9; 
i=; 

0-0 
currentproc=4; 
engaged=false; 
magnified=false; 
fired=false; 
erroron= false, 
key="0"; 
threshold(@)=1; threshold(1)=4; threshold(2)=4; 
VX_own=2.@; 

Vy_own=0.0; 

vx_target=@.9@; 

vy target=2.0; 

vx_ rel=0.92; 

vy_rel=0.2; 

vx round=0.@; 

vy_round=@.9; 

vr=0.2; 

alpha=2.0; 

ax_sum=0.0; bx sum=0.9; cx sum=@.0; 

ay _sum=2.8; by_sum=0.0; cy_sum=0.0; 
ax=0.0,tx=0.0;cx=0.90;3 

ay=0 .9;by=0 .O@;cy=0.0; 
X_at5=0.9;5y_at5=0.9;3 

r=0.0; 

dx dt_at5=0.0; dy_dt_at5=0.0; dr dt_ato=0. 
o1(1)=1.8; 01(2)=8.53 01(3)= 3.23 ah ie 
02(1)=1.8; 02(2)=-9.53 02(3)=-1.03 02(4)=- 


o5 
55 Gnel )=—1 as 
0.55 O2(5)=12¢2, 


/*getship, when invoked, extracts a node from the pool of 
available and returns a pointer value pointing to that 
node. It puts an error message if there is no available 
node*/ 

getship:procedure returns (fixed bin(7)); 


/* acl */ 
Yinclude “zlobals.inp’; 
if availship=nil then do; 
put skip list(’No more available ship nodes”); 
return(nil); 
end /*do*/; 
else do; 
node=availship; 
availship=link ship(availship); 
end /*{f£*/; 
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return(node); 
end getship; 


/*zgetwake does the same function as getShip except for the 
operations made are on wake nodes* 
getwake:procedure returns (fixed bin(7))3 


/* acl */ 
Sinclude “globals.inp’; 


if availwake=nil then do; 
put skip list(’No more available wake nodes’); 
return (@);3 
end /*d0%*/; 

else do; 
node=availwake; 
availwake=link wake(availwake); 

end /*if*/; 

return(node); 

end getwake, 


end initvars, 
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APPENDIX C 


—_— em 2 om ewe SS oe 


SIMULATION SYSTEM MODULE PROGRAM LISTINGS 


A. TACTICAL.FLI 


/* 

Prog Name : TACTICAL.PLI 

Date : December &3 

Written by > M. Kadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose This external routine calculates and 


updates the Seeivicns of the ships in the tactical area 
and the future positions of the ships that oelong to 
enemy ships circular linked list pointed to by ptr{(own), 
and 

and calculates the trajectory of the travelling projectile 
if fired 

7 


TACTICAL: PROCEDURE EXTERNAL; 


/* 
DCL 
= 
ZINCLUDE “CONST.INP “5 
ZINCLUDE “GLOBALS.INP’; 


/*following sequence of code updates the present positions 
of the ships in the tactical area*/ 
DO I=2 TO NUMBERSHIPS; 
YX TARGET = SPEED({I) * SIND (COURSE(I)); 
VY_TARGET = SPEED(I) * COSD (COURSE(I)); 
VX REL = VX_TARGET - VX_OWN; 
VY REL = VY_TARGET - VY_OWN; 
WAKE PTR = PTR(I)3 
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X_WAKE(WAKE PTR) 
Y WAXE‘WAKE PTR) 
mit) = xX(1) + VX. 
Y(1) 
PER{I) = 


= 
—= 


X(I 


IF COUNT (I) < 4 THEN 

COUNT (I )=COUNT(I ) +13 
/*END LF*/ 

END /*D0*/; 


)3 
Y(1)3 
REL * DT; 
Y(1) + VY_REL * DT; 

LINK WAKE(WAKE PTR); 


future positions 


/*calculating the 
here by using the 
polynomials. 
FILTERING: 
TARGET = PTR(OWN); 
DONE=TRUE> 


F ~(TARGET=NIL) THEN 
DONE=FALSE;} 

/*¥END LF*/_ 
DO WHILE ( DONE); 


least squares 
The coefficients are pre-calculated according 


/*ptr(i) points to*/ 
/* the oldest wake*/ 


(aim 
method 


/*Leg. poly. @ deg.*/ 
a7, 
a 


points) 


with 


to the fifth second including the zeroth second*/ 


IF COUNT(TARGET)=4 THEN 
BEGIN; 

AX SUM = X(TARGET) * 00; 

BX_SUM = X(TARGET) * 01(5);/* © 

CX SUM = X(TARGET) * 02(5);/* 

AY SUM = Y(TARGET) * 08; 

BY_SUM = Y(TARGET) * 01(5); 

CY SUM = Y(TARGET) * 02(5); 

WAKE PTR = PTR(TARGET)3 

J = 1} 

DO WHILE (LINK_WAKE(WAKE PTR) 
AX SUM = AX SUM + X_WAKE(WAKE PIR) 
BX SUM = BX SUM + X_WAKE(WAKE PTR) 
CX SUM = CX_SUM + X_WAKE(WAKE PTR) 
AY SUM = AY_SUM + Y_WAKE(WAKE PTR) 
BY SUM = BY SUM + Y WAKE(WAKE PTR) 
CY SUM = CY_SUM + Y_WAKE(WAKE PTR) 
WAKE. PTR=LINK WAKE(WAKE PTR); 
J ee 35 

END 7#D0%/; 

RRO ="A% SUM / 5.3 

BX = 2.9 * BX_SUM / 5.3 

One = 2.0) €% SUM / 7.3 

AY = AY_SUM / 5.3 

Eye—ee.0 * BY SUM / 5.; 

Sim=92.06 * CY SUM / 7.; 
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ts 


HHH HK tt 


if 


Starts 
legendre 


et 


“= PTR(TARGET )); 


OO; 


3 






X_ ATS. 
Y_ATS 


Af leo ek tS. oes 
wien ie oe bl ono." Ol; 


INCONVENIANCEs 
/*this begin block is inserted to avoid the complications 
which might arise from the automatic conversions*/ 
BEGIN; 
DCL (XSTEP,YSTEP) FIXED, 
(XF,YF,RSQD) FLOAT; 


IF (ABS(X_AT5)>TOP)!(ABS(Y_AT5)>TOP) THEN 
RSQD=-1.83 
ELSE DO; 
RSPEP=BUNARY .X FATS); 
YSTEP=BINARY(Y_ AT5)} 
XF=FLOAT(XSTEP); 
YF=FLOAT(YSTEP) ; 
RSQD=XF¥*XF+YF*YF} 
END /*1F*/; 
IF (RSQD<@.0)!(RSQD>MAXSQ) THEN 
R=0.9} 
ELSE 
R=SQRT(RSQD) 5 
/*END IF*/ 
END INCONVENIANCE; 


IF (R=0.2) ! (R>RMAX) THEN DO; 
X_AIM(TARGET)=0.0; 
Y AIM(TARGET j)=@.0; 
END /*DO*/}3 
ELSE DO} 
ALPHA = ASIN(G*R/VM*¥**2, / 2.0;/*IN RADS*/ 
VR = VM * COS(ALPHA); 


T PRIME = R / VR; 

DX DT ATS = Z.O*CX - O.5*BX; 

DY DT AT5 = 3.Q*CY - O.5*BY; 

DR DT ATS = (X_AT5 * DX DT ATS + 


x 


Y_ATS Died t lS k 


T OF = (R + DR_DT _AT5 * T_ PRIME) / VR; 
X AIM(TARGET) = X_AT5 + DX DT_ATS * T_OF; 
Y AIM(TARGET) = Y_ATS + DY DT ATS * T_OF; 


END /*IF*/; 
END /*IF*/; 
TARGET=LINK SHIP(TARGET) ; /*next target?*/ 
IF TARGET=PTR(OWN) THEN 
DONE=TRUE; 
/*END IF*/ 
END /*D0O*/; 
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| 
| 


ROUNDTRACK: 
/*the vallistic calculations start here*/ 
IF (FIRED) THEN 


BEGIN 
VX_REL = VX_ROUND - VX_OWN; 
VY_REL = VY_ROUND — VY_OWN; 


X GUN = X_GUN + VX_REL * DT; 
Y GUN = Y GUN + VY_REL * DT; 
T = 7 - DT; 
IF T<=0 THEN DO; 
Poeino tC - G js 
FIRED = FALSE; 
END /*I1F*/; 
END /*1F*/} 


END TACTICAL; 
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mo DISPLAY .PLI 


/* 

Prog Name ee LOA we ll 

Date : December 83 

Written by mee haar? O2y wise 

For : Thesis P 

Advisor >: Professor Kodres 

Purpose >; This routine first puts the time in 


hours, minutes, and seconds. The control then proceeds to 
call DRAW subroutine in an iterative loop to erase the old 
objects. It then calculates the positions of the objects 
relative to either ownship or the ship that has been 
targeted according to MAGNIFIED.Then it calls DRAW to 
oT the objects. 


DISPLAY:PROCEDURE EXTERNAL; 


/*DCL*/ 
SINCLUDE “CONST.INP’$ 
ZINCLUDE “GLOBALS.INP’; 


Por List( |  %"); /*ENTER ALPHA MODE*/ 
IF MINUTES=@ THEN 
BEGIN} 


racenase (° [= %~)} 
PUT EDIT (HOURS) (F(Z) )3 
HOURS = HOURS+1;3 
IF HOURS=24 THEN 
HOURS = @3 
/*END IF*/ 
END /*1F*/; 


IF SECONDS=0 THEN 
BEGIN; . 
BUteoisT | {= (°)3 
PUT EDIT (MINUTES) (F(2)); 
MINUTES = MINUTES+15 
IF MINUTES=6@ THEN 
MINUTES = @; 

/*END IF*/ 

END /*IF*/; 


PUbetast ( [= +"); 
PUT EDIT (SECONDS) (F(2)) 3 
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SECONDS = SECONDS+1; 
IF SECONDS=6@ TEEN 

SECONDS = @; 
/*END IF*/ 


mie List(’ Mexe °); /*HOME CURSOR*/ 


/*the following calls erase the objects from the screen*/ 
D=9; 
DO I=1 TO NUMEERSHIPS; 


Cube DAW (OBJ ECT(1)<U,OBJECT(I).¥,D); 
CALL DRAW(OBJECT(I).UU WAKE,OBJECT(I).VV WAKE,D); 
CALL DRAW(OBJECT(1).U_AIM ‘OBJECT(I). V_AIM,D); 


END /*DO*/; 
CALL DRAW(OBJECT(1).U_GUN,OBJECT(1).V_GUN,D); 


/*the following sequence converts the coordinates of the 
objects to the grid coordinates of the screen and generates 
the sequences of the coordinates for the otjects*/ 
DO I=1 TO NUMBERSHIPS; 
XX= home ris) t OFFSET )/M); 
YY=B+BINARY((Y(1)-Y_ OFFSET)/™M) ; 
IF (FRIEND(I)) THEN. 
CALL GENFRIEND(XX,YY,OBJECT(1I).U,OBJECT(I) .V); 
ELSE 
CALL GENFOE(XX,YY,OBJECT(I).U,OBJECT(I).V); 
/*¥END IF¥*/ 
CALL GENWAKE(XX,YY,OPJECT(I).U WAKE,OBJECT(I) .V_WAKE); 
XX=A+BINARY((X WAKE( PTR(1))- -X “OFFSET)/M);} 
YY= E+BINARY((Y WAKE(PTR(I))- a OFFSET) /M)3 
IF COUNT(I)=4 THEN 
CALL GENWAKE(XX,YY,OBJECT(I).UU_WAKE, 
OEJECT(I).VV_WAKE); 
XX=A+BINARY ((X_AIM(1I)-X_OFFSET)/M); 
a B+BINARY((Y_AIM(1I)-Y_OFFSET)/M); 
F ~((XX=A)&(YY=B)) TEEN 
IF I=1 THEN 
- CALL GENOURAIM(XX,YY,OBJECT(I).U_AIM, 
OBJECT (Lov. AIM 
ELSE 
CALL GENAIM(XX,YY,OBJECT(1).U_AIM, 
OBJECT(I).V_AIM); 
/*END LP*/ 
/*END IF*/ 
END /*DO*/; 
XX=A+BINARY ((X_GUN-X_OFFSET)/M); 
YY=B+BINARY((Y_GUN-Y_OFFSET)/M); 
CALL GENGUN(XX,YY,OBJECT(1).U_GUN,OBJECT(1).V_GUN); 
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/*the following sequence draws the objects by calling the 
routine DRAW*/ 
D=1; 
DO IT=1 TO NUMBERSHIPS; 
CALL DRAW(OBJECT(I).U,OBJECT(I).V,D); 
CALL DRAW(OBJECT(I).U_WAKE,OBJECT(1).V_WAKE,D); 
IF (ENGAGED) THEN CALL DRAW(OBJECT(I).U_AIM, 
OBJECT(1).V¥V_AIM,D); 
END /*DO*/; 
IF FIRED THEN CALL DRAW(OBJECT(1).U_GUN,OBJECT(1).V_GUN,D); 


/* the following procedures produce the sequence of screen 
grid coordinates for various obdjects*/ 


mic L 
(X,Y) FIXED BIN(15}), 
(U,V¥)(@:18) FIXED BIN(15);3 

U(@)=X;5 V¥(@)=Y-8; 

U(1)=X-63 ¥(1)=Y-3; 

U(2)=X-65 V(2)=Y¥+3; 

U(Z)=X;3 V(3)=Y+8; 

U(4) =X+6;3 V(4)=¥+3; 

U(5)=X+63 ¥(5)=Y-3; 

U(6)=X3 V(6)=Y-8;3 

U(7)=-13 V(7)=-15 


END GENFRIEND; 
GENFOE: PROC(X,Y,U,V)3 


DCL 
(327) PIXED BIN(15), 
(U,V¥)(@:10) FIXED BIN(15)3 
U(2)=X+8; ¥( )=Y¥-43 
U(1)=X-8;3 ¥V(1)=Y-4; 
U(2)=X; ¥(2)=Y¥+8; 
U(3)=K +83 V(3)=Y-4; 
U(4)=-1;5 V(4)=-13 


END GENFOE; 
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GENWAKE:PROC(X,Y,U,V); 


DCL 
(Ka) FIXED BIN(15), 
(U,V)(@:1@) FIXED BIN‘15)3 
U(Q)=X3 Ven 
ara) =X ; V(1)=¥3 
U(2)==-1; V(2)=-1; 


END GENWAKE; 
GENOURAIM:PROC(X,Y,U,V); 


DCL 
(X,Y) FIXED BIN(15), 
(0.¥)}(@:1@) FIXED EIN(15); 

U(@)=X +83 V(9)=Y; 

U(1)=X-8;3 V(1)=Y; 

U(2)=X;3 V(2)=Y3 

U(3)=X3 ¥V(3)=Y-8; 

si ¥(4)=Y+8; 

U(5)=<1;3 V(5)=-1; 


END GENOURAIM; 
GENAIM:PROC(X,Y,U,V);3 


DCL 
Oe @ ae BNL Shi, 
(U,V¥)(@:18) FIXED PIN(15)3 

U( 2) =X +43 V(0)=Y+4;3 

U(1)=X-43 V(1)=Y¥-43 

U(2)=X; V(2)=Y; 

U(3) =X+4;5 ¥(3)=Y-4; 

U(4)=X-—43 V(4)=Y+43 

U(5)=-1;3 V(5)=-13 


END GENAIM; 
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GENGUN:PROC(X,Y,U,V); 


DCL 
(X,Y) FIXED BIN(15), 
(U,¥)(@:18) FIXED BIN ‘15);3 

U(3)=X+13 ¥(S)=Y-15 

U(1)=X+15 V(1)=Y+1;3 

U(2)=X-13 V(2)=Y+13 

U(2)=X-1; V(3)=Y-13 

U(4)=X+13 V(4)=Y-1; 

U(5)=-1;3 V(5)=-13 


/*this procedure receives two arrays and a key variable as 
paramaters, and either displays the object or erases it*/ 
DRAW:PROC(U,V,D) EXTERNAL; 


Gl, 
(U,V¥)(@:18) FIXED BIN(15), 
ish.) FIXED BIN(7), 
RUB CHAR(1) EXTERNAL, 
Ci) CHAR(1), 
Z1(@:3) CHAR(1) BASED(P), 
Mages) SITS), 
P POINTER; 
P=ADDR(Z)3 /*Z and 21 share same location hereon*/ 
1=9; 
DO WHILE (I<11); 
IF (D=1) 


/*enter vector set level wnite*/ 
THON PUT LIST(° ] fa’); 
/*enter vector set level black*/ 
ErECE PUT LIST(~ | [ ;RUB); 
/*¥END IF*/ 
DO H=1 TO 5; 
IF (U(1)<@) THEN DQ; 
Py elena eae yee hs 
RETURN; 
END /*IF*/;5 
/*tbis call translates the coordinates to the 
stream of bits*/ 
CALL TRANSLATE(U(I),V(1),2Z); 
I=I +1; 
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/*this put statement puts out the bit streams 
as being characters*/ 
PULSE IT (2143) DO J=@ TO 3}) (4A(1)); 
END /*DO*/; 
/*the following two statements get the status of 
the screen. The status is not sent back until the 
screen is rates © 
PUReLISt(- [a /*HANDSHAKE*/ 
GET EDIT((C(J) ki J=1 TO 7))(7A(1))5 
END /*DO*/3 _ 
PUT LIST(° 4 X”); /*BACK TO ALPHA*/ 


TRANSLATE: PROCEDURE(X,Y,Z) 3; 
DECLARE (X,Y) FIXED BIN(15), 
megs) BITS), 
fori) BIN(1LS), 

Smee (16), 

Soe Ce), 

Seb r a) , 

I FIXED BIN(7); 
ee 


J 
1 
@B1GG@GB°B ! S;3 
2 - (Y/32) * 32; 
= BIT (T,16)3 
“SUBSTR($1,8,8)3 
= °911000@0°B ! S; 
Drveos (X,52.,8);3 
Or(l,7)3 
SS 
= “9G19@00G°B ! S; 
Meroe) * 32; 
Pe eer? . 16) 5 
= SUBSTR ($1,8,8); 
Z(3) = °@1900000°B ! S; 
END TRANSLATE; 


— 


) 


—~ il wm 
bn su dr ill 


B 
B 


_~ 


END DRAW; 
END DISPLAY; 
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GO. sSLATUS.PLI 


/¥* 
Prog Name S So huis oP LI 

Date >: December 83 

Written by > Memkadri OZyurs 

For ; Thesis 

Advisor : Professor Kodres 

Purpose > this routine calls the assembly routine 


KEYBOARD to read the keyboard to set the boolean variaoles 
Tz in other routines 
x 


STATUS :PROCEDURE EXTERNAL; 


/* 
DCL 
/ 
ZINCLUDE “CONST.INP’; 
INCLUDE “GLOBALS.INP’; 


CALL KEYBOARD (KEY); 
i mey= © )!(KEY=" 
STOP; 
ELSE IF (KEY="E°)!(KEY="’e°) THEN 
ENGAGED = TRUS; 
ELSE IF ENGAGED & (( RANK (KEY )>48)&6 (RANK (K EY )<=57) ) 
THEN BEGIN; 
I=RANK (KEY )-48;5 
IF NUMBER(I)=@ THEN 
LINK SHIP(I)= . 
ELSE IF FRIEND(I) THEN DO; 
CALL REMOVENODE(LINK SHIP(OWN),I); 
CALL ADDNODE(PTR(OWN),I); 
FRIEND(1I)=FALSE; 
END} 
PTR(OWN) = 
END; 
ELSE IF (KEY=’R’) ! (KEY=’r’) THEN 
ENGAGED=FALSE; 
ELSE IF (KEY="M’)!(KEY='m’) THEN DO; 


q°) THEN 


an 








/*set the scale tc 1/2@0%*/ 

MAGNIFIED=TRUE;} 

M=220 .0;3 

IF ENGAGED THEN DO; 

/*set reference as the tar 
X_OFFSET=K (PTR (OWN) 
Y_OFFSET=Y¥ (PTR(OWN) 
END /*DO*/; 

ELSE DO; 

/*ownship is the reference*/ 
X_OFFSET=9.9; 
Y_OFFSET=9 .93 
END /*DO*/; 

/*END IF*/ 

END; 

Bese IF (KEY="T°)'(KEY="t’) THEN DO; 
/*set the scale back to normal (1/50)*/ 
MAGNIFIED=FALSE; 

M=52.@; 
X OFFSET=2.0; 
a OFFSET=@2.0; 
END /*DO*/}3_ 
Miooelh (KEY="F°)!(KEY="f°) TEEN 
FIRED = TRUE; 
ROSEeIS (KEY= D°)!(KEY="d°) THEN 
ERRORON=TRUE; 
BLSB IF (KEY="S°)!(KEY=’s’) THEN 
SIGNAL ERROR(1); 
/*END IF*/ 
Kuwe= 2; 


et* 
)5 
3 


/*this routine removes the node pointed by QQ from the 
circular linked linked list pointed by PP*/ 
REMOVENODE: PROC (PP,QQ);3 


DCL 
(PP,QQ) FIXED BIN(7); 
ZINCLUDE “GLOBALS.INP’; 


P=PP} 

P=LINK SHIP(P); 

DO WHILE (~(LINK_SHIP(P)=QQ)); 
P=LINK SHIP(P); 


END} 
LINK SHIP(P)=LINK SHIP(QQ); 
END; 
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/*this routine adds a node pointed by QQ to the 
linked list by PP*/ 
ADDNODE: PROC (PP,QQ); 


DCL 
(PP,QQ) FIXED BIN(7)$ 
SINCLUDS’°GLOBALS .INP’$ 


P=PP; 
P=LINX SHIP(P)$; 
DO WHILE ( (LINK SHIP(P)=PF)); 
P=LINK SHIP(P); 
END$ 
LINK SHIP(F)=0Q;3 
LINK SHIP(QQ)=PP; 
END$ 


END STATUS; 


Cicer lar 






D. IDLE.PLI 


/* 

Prog Name ; IDLE.PLI 

Date ; December 83 

Written by Veeco adr io 2 yur t 

For ; Thesis 

Advisor ; Professor Kcdres 

Purpose >: This routine reads the A/D converter 


output to get the velocity vectors of ownship and a 
selected ship, and the gun information as azimuth and 
elevation. It then converts this information to real world 
values. It calculates ownship speed which will be used to 
find relative speeds later. It then computes the maximum 
range, cartesian coordinates of the splash point, and time 
: flight corresponding to the current gun position 

x 


IDLE: PROCEDURE EXTERNAL; 


/* 
DCL 
2 / 
ZINCLUDE “CONST.INP’; 
ZINCLUDE “GLOBALS.INP’; 


pomp=o TO 5; 
CALL ATOD (D,ARG(D)); 
END /*DO*/; 


/*at this point the A/D output values are fixed bin(7) 
values. The following sequence converts those to fixed 
decimal values*/ 

COURSE(OWN)=ARG(Q); 

SPEED (OWN )=ARG (4) 5 

COURSE( KNOWN )=ARG (2) 3 

SPEED (KNOWN )=ARG(3)3 

AZ=ARG(1); 

ALT=ARG(5)3 


/*the following sequence converts A/D values to real time 


values by using appropriate proportionality constants*/ 
COURSE(OWN) = COURSE(OWN) * XK; 


74 









COURSE(KNOWN) = COURSE‘KNOWN) * K; 
Az = BZ = Xk; 
IF COURSE(OWN)<@.@ THEN 
COURSE(OWN) = COURSE.OWN) + TWO PI ; 
IF COURSE(KNOWN)<2.@ THEN 
COURSE(KNOWN) = COURSE( KNOWN) 
IF AZ<@.@ THEN 
AZe= AZ + BWO PI; 
IF ALT>9@.@ THEN 
ALT = 98.23; 


SPEED(OWN) = SPEED(OWN)/L; 
SPEED(KNOWN) = SPEED KNOWN) / L; 


/*ownship speed computations*/ 
VX_OWN = SPEED(OWN) * SIND( COURSE (OWN) ) 
VY OWN = SPEED(OWN) * COSD(COURSE(OWN) ) 


* 
’ 
® 
’ 


/*whnen not have fired, the following makes the 
computations*®/ 
IF ~ FIRED THEN 
BEGIN; 
T OF = 2.0 * VM * SIND(ALT) / G; 
VR = VM * COSD(ALT); 
R = VR * T OF; 
X_AIM(OWN) = R * SIND(AZ); 
Y AIM(OWN) = R * COSD(AZ); 
X GUN = 8.9; 
Y GUN = 6.93 
VX ROUND = VR * SIND(AZ)3 
VY ROUND = VR * COSD{AZ); 
T = T OF; 
END /*1F*/; 
END IDLE; 


Ce 


+ TWO PI ; 


tallistic 








APPENDIX D 


REAL TIME EXECUTIVE MODULE LISTINGS 


A. ARBITER.ASE 


;Prog Name >: ARBITER .A86 

>Date : December 83 

Written by : M. Kadri- Ozyurt 

3For : Thesis 

sAdvisor : Professor Kodres 

> Purpose : This program contains all the assembly 


sroutines used by the simulation system. It initializes all 
sprogrammable hardware components, responds to the timing 
,interrupts, and increment the FOURTHEVC used throughout the 
»Simulation model program. Upon receiving interrupt 
srequests , it performs precess switching by storing the 
»state of interrupted process in the stack area allocated 
sfor the processes and by restoring the highest ready 
sprocess given ty SCHEDULER 


»GLOBALS 


DGROUP GROUP FOURTHSVC ,CURRENTPROC 
FOURTHEVC DSEG COMMON 

FOURTHEVC1 DW 0 

CURRENTPROC DSEG COMMON 

CURRENTPROC1 DB 4 


CSEG 

EXTRN SCHEDULE: FAR 
EXTRN Pi: FAR 
EXTRN P2.rank 
EXTRN Be.FAR 
EXTRN P4:FAR 
PUBLIC ARBITER 
PUBLIC STORESTATUS 
PURLIC RINGBELL 
PUBLIC KXEYEOARD 
PUBLIC ATOD 

PUBLIC SUSPEND 
PUBLIC RESUME 
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> EQUATES 


INTL  EQU 84H ;INTR1 JUMP ADDR. 
its | £0U 8CE ;INTRZ JUMP ADDRESS 
PIC1  EQU OC OH ;PIC COMMAND OUTPUT PORT 
PIC2  EQU gC2H ;PIC COMMAND OUTPUT PORTZ2 
ICW1  EQU 138 ;PIC COMMAND wORD1 
Icw2 QU 20H ;PIC COMMAND WORD2 
ICWw4 EQU ODH ;PIC COMMAND WORD4 
MASK1 EQU OFDE ;PIC MASK BYTE 
EOI EQU 20H ;END-OF-INTERRUPT BYTE 
CNTR1 QU 50H ;FIT MODE CONTROL BYTE 
CNTR2 EQU 60H ; 
PORTC QU OD6H SPIT CONTROL PORT 
COUNT  EQU gD 2H ;PIT COUNT # OUTPUT PORT 
CNTRLO EQU 00H ;PIT COUNT # LO BYTE 
CNTREI EQU 96H ;PIT COUNT # HI BYTE 
READWR EQU 37H 
RERDY  EQU Q2E ;USART STATUS MASK(READ) 
TXRDY  EQU O1E SUSART STATUS MASK(WRITE) 
PORTIO EQU ODS SUSART I/O FORT 
PORTST EQU ODAH SUSART STATUS PORT 
SEGCONY EQU GD2GGH ;A/D CONVTR PORT SEGMENT 
OFFCONV EQU OF7 GOH ;A/D CONVTR PORT OFFSET 
STACKSIZE EQU 1098 
LF EQU OAH 
CR EQU ODE 
BEL EQU O7H 
FS EQU 1CE 
ESC EQU 1BE 
FF EQU OCH 
CAN EQU 18H 
FALSE EQU g 
TRUE  EQU NOT FALSE 
3 
ARBITER: 

PUSH DS 

oibM ;DISABLE INTR‘S 

MOV AX,@ 

MOV DS , AX ;SET SEGREG TO @ 

MOV BX, INTI 

MOV WORD PTR [BX] ,OFFSET PROC@ ;INT1 JMP ADDRESS 

INC BX 

INC BX 

MOV WORD PTR [2x],CS 

POP DS 

MOV BX,OFFSET STACKTBL+STACKSIZE-2 

MOV (oe (BX) ,cs 

ADD BX ,STACKSIZE 
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} 
PROC@: 


MOV 
ADD 
MOV 
ADD 
MOV 
CLI 
MOV 
OUT 
MOV 
OUT 
MOV 
OUT 
Se 
MOV 
OUT 
MOV 
OUT 


MOV 
OUT 
MOV 
OUT 
MOV 
OUT 
MOV 
OUT 
MOV 
MOV 
MOV 
MOV 
JMP 


PUSH 
Fuse 
PUSH 
MOV 
OUT 
MOV 
OUT 
MOV 
OUT 
ADD 
POP 
POF 
POP 
PUSH 
PUSH 
Evo Hn 


CS:(Bx],Cs 
BX,STACKSIZE 
CS eMac s 
BX, STACKSIZE 
CS: [BX], 6S 


AL, ICW1 
PIC1,AL 
AL, ICWe 
PIC2Z,AL 
AL ,ICW4 
PIC2Z,AL 


AL,MASK1 
PIC2,AL 
AL,CNTR1 
PORTC ,AL 


AL,CNTRLO 
COUNT ,AL 

AL, CNTR2 
PORTC,AL 

AL, CNTREI 
COUNT,AL 
AL,READWR 
FORTST,AL 
AX,CS 

SS ,AX 

BP, 3*STACKSIZE 
SP,STACKTBL [BP] 
P4 


AX 

EX 

CX 
AL,CNTRZ 
PORTC ,AL 
AL, CNTRHI 
COUNT ,AL 
AL, EOI 
PIC1,AL 
SP,6 

BX 

AX 

CX 

AX 

BX 

CX 
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sINIT. PIC TO 
eG aC eo NG bene 1G 


> INT1 ADDR IS @O4H 
» NOT F. NESTED, NORM. EOT 


,ONLY INT1 IS ALLOWED 


FIND Eee Pit 

»,SELECT MODE @ ,CNTR 1 

7 CLM Piben IS 15é.6 Kaz 
»>COUNT-DOWN VALUE 9600H 
> WHICH GIVES AN INTR AT 


; BEVERY FORTH OF A SEC. 


>SET STACK SEG. TO CODE 


>RESET COUNTER 
»RESET THE CNTR. 


SRESET PIC 
;SP->INTERRUPTED IP 
;BX-> ; IP 
;AX-> CS 
;SP->INTERRUPTED IP 
; PUSH i C 
; PUSH IP 









SUB 
POP 
Eee 
BOP 
INC 
JMP 


STORESTATUS : 


DEC 
DEC 
PUSH 
ADD 
Por 
PUSH 
PUSH 
DEC 
DEC 
POP 
PUSHF 
CLI 


STORESTATUS1: 


OUT : 


eult2: 


OUTS: 


OUT4: 


CUTS 3 


PUSH AX 
FUGH BP 
CALL 
MOV 
MOV 
CMP 
JNZ 
MOV 
JMP 
OMr 
JNZ 
MOV 
JMP 
CMP 
JNZ 
MOV 
JMP 
CMP 
JNZ 
MOV 
JMP 
ADD 
CMP 
JNA 
DEC 
MOV 
JMP 
ADD 
MOV 
MOV 
JMP 


aie 39P—->PUSHED CX 
CX 

BX sRESTORE BX 

AX sRESTORE AX 
FOURTHEVC1 

STORESTATUS1 


SP 

SP 

AX 

SP,4 

AX sAX-PDINTERRUPTED IP 
CS 

AX 

SP 

See 

AX »RESTORE AX 


! PUSH BX ! PUSH CX ! PUSH DX 
! PUSH SI ! PUSH DI ! FUSH ZS 
SCHEDULE 
NEWPROC,AL 
AL,CURRENTPROC1 
Ate 

OUT 

BP,1 

OuT4 

it 

ouT2 
BP,STACKSIZE+1 
OUTS 

AL,2 

OUTS 
BP,2*STACKSIZE+1 
ouT4 

AL,4 

OUTS 

BP, 3*STACKSIZE+1 
OuUT4 

BP,OFFSET STACKTBL 
SP,BP 

OUTS 


BP 
[BP] ,SP 

LOADPROC 

AL,2@0H 

OUTSAL, AL 

DX ,OFFSET OUTSMESS 

ERRORMESS 


ice 





OUTE: ADD AL,S@H 


MOV OUT6AL,AL 
MOV DX,OFFSET OUTEMESS 
JMP ERRORMESS 
LOADPROC : 
MOV AL,NEWPROC 
CMP AL,1 
JNZ LOUTL 
MOV BP, 
JMP RETURNFT 
OUT? : CMP AL,2 
JNZ LOUT2 
MOV BP,STACKSIZE 
JMP RETURNPT 
LOUT2: CMP AL,¢ 
JNZ LOUTS 
MOV BP ,2¥*STACKSIZE 
JMP RETURNPT 
LOUT?: CMP AL,4 
JNZ LOUT4 
MOV BP, S*STACKSIZE 
JMP RETURNET 
LOUT4: ADD AL ,5@H 
MOV LOUT4AL ,AL 
MOV DX,OFFSET LOUT4MESS 
JMP ERRORMESS 
RETURNPT : 
MOV CURRENTPROC1 ,AL 
MOV SP,STACKTEL [BP] 
Bere Looe) le terOPR Slo!) POP BP 
BOP Deer OPSGre tt POP Bx ! POF Ax 
POPF 
STI 
RETF 


@e “@6¢ We 


sTHIS ROUTINE MAKES A SYSYTEM CALL TO PUT OUT ERROR 


»MESSAGES 

ERRORMESS: 
MOV CL,9 
INT 224 
MOV CL,@ 
MOV DL,1 
INT 224 
RET 


@e@ @@ we 
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»THE STACK AREAS AND VARIABLE DEFINITIONS 


STACKTBL: 
DW OFFSET STACKTBL+STACKSIZE-22 
RS STACKSIZE-8 
DW FALSE 
DW OFFSET Pi 
RS 2 
DW OFFSET STACKTBL+2*STACKSIZE-c2 
RS STACKSIZE-8 
DW FALSE 
DW OFFSET Pz 
RS 2 3 
DW OFFSET STACKTBL+35*STACKSIZE-22e 
RS STACKSIZE-8 
DW FALSE 
DW OFFSET PS 
RS a 
DW OFFSET STACKTBL+4*STACKSIZE-22 
RS STACKSIZE-8& 
DW FALSE 
DW OFFSET P4 
RS e 
NEWPROC DB 0 
OUTSMESS DB FS ,ESC,FF,CAN 
DB “RETURN FROM OUTS. AN UNKNOWN CURRENT PROCEDURE: ” 
OUTSAL DB Oo 5 
OUTEMESS DB FS,ESC,FF,CAN 
DB “RETURN FROM OUT6. STACK OVERFLOW FOR THE PROC.:” 
OUTSAL DB Oeeeoie. 
LOUT4MESS DB FS,ESC,FF,CAN 
DB “RETURN FROM LOUT4. AN UNKNOWN NEW FROCEDURE:” 
LOUT4AL DB 2,°$°,@ 
7 
’ 
’ 
END 
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B. BWA1T .PLI 


/* 

Prog Name ¢; AWAIT.PLI 

Date ; December 82 

Written by Meer. OZsur t 

For ; Thesis 

Advisor : Professor Kodres 

Purpose : This synchronization primitive checks 


the threshold value for the calling process ty comparing 
the corresponding threshold value with FOURTHEVC and 
returns the control either to the calling process, if its 
threshold value is equal to and greater than FOURTHEVC, or 
a transfers the control to ARBITER.A&6 


await: procedure(i); 
dcl threshold(@:2) fixed bin(15) external, 
storestatus entry. 
fourthevce fixed bin(15) external , 
i fixed bin(7); 
if (fourthevc>=threshold(i-1)) then return; 
else call storestatus; 
end await; 
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C. SCHEDULE.PLI 


/* 

Frog Narre © SGoEDULE. FLI 

Date : December 82 

Written by > Mee medrs Ozyur t 

hor : Thesis 

Advisor : Professor Kodres 

Purpose : This synchronization primitive 


compares the threshold values corresponding to the 
processes Fi through P3, beginning from Fi, to FOURTHEVC 
and returns the name of the first one which is equal to or 
greater than that value. If non of the processes meet this 


meron then P4 is returned. 
* 


schedule: procedure returns (fixed bin(7)); 
dcl threshold(@:2) fixed bin(15) external, 
fourtheve fixed bin(15) external, 
i fixed bin(7); 
do i=@ to 2; 
if (fourthevce>=threshold(i)) then return (i+1)} 
end; 
return (4); 
end schedule; 
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D. THRESH.PLI 


/* 

Prog Name ; LaRBoos Pll 

Date >: December 83 

Written by oMewweader. O2yur t 

For : Thesis 

Advisor : Professor Kodres 

Purpose gle US synchronization primitive 


receives a pointer to the calling process and increments 
: corresponding threshold value by an assigned amount 
p+ 4 


THRESH: PROC(1); 


DCL THRESHOLD(@:2) FIXED BIN(15) EXTERNAL, 
i FIXED BIN(7); 


IF (i=1) THEN THRESHOLD(@)=THRESHOLD(@) + 13 
IF (i1=2) THEN THRESHOLD(1)=THRESHOLD(1) + 43 
IF (i=3) THEN THRESHOLD(2)=THRESHOLD(2)+4; 
RETURN; 

END THRESH; 
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ie Ft. Pit 


/* 

Prog Name $) Pater ee 

Date : December 83 

Written by Shemnoani. OZyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose ct ars process is basically an 


infinitive loop. Once entered, it first call AWAIT.PLI 

to see if FOURTHEVC is equal to or greater than its 
threshold value. If it is, then the control proceeds to 
Gem TACTICAL.FLI. The last call in the loop is to 
THRESH.PLI to increment its threshold value. In the next 
iteration, the control will not come tack since its 
threshold value is greater than FORTHEVC. 

7 


Pi: PROCEDURE; 


DCL AWAIT ENTRY (FIXED BIN( 
THRESH ENTRY (FIXED BIN 
A FIXED BIN(7), 
TACTICAL ENTRY; 


ane 
Gaye 


Bei; 
DO WHILE (°1°B); 
CALL AWAIT (1)3 
GAEL TACTICAL; 
-CALL THRESH (1);3 
END /*DO*/; 
END P1; 





. Fe.FLl 


/* 

Prog Name s eee iot 

Date : December &2 

Written by oh. Kadri @zyurt 

For >: Thesis 

Advisor ;: Professor Xodres 

Purpose SS IMe SUrpOSe Of this process is idecti- 


cal to that of Fi.PLI with the exception that the second 
a TomGOmbplorLAY. PL. 
x 


P2: PROCEDURE; 


DCL AWAIT ENTRY (FIXED BIN(7)) 
THRESH ENTRY (FIXED BIN(7) 
A FIXED BIN(7), 
DISPLAY ENTRY; 


}, 


A=2} 
BOeWHILE (°1°3B); 
CALL AWAIT (2); 
CALL DISPLAY; 
CALL THRESE (2); 
END /*DO*/; 
END P2; 
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c. Posebl 


/* 

Prog Name ee Ger) iil 

Date : December 83 

Written by 2 Me kadirl Ogvurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose : The purpose of this process is the 


same as P1.PLI with the exception that the second call is 
¥ SlALUS. PLT 
x 


PS: PROCEDURE; 


DCL AWAIT ENTRY (FIXED BIN(7) 
THRESH ENTRY (FIXED BIN(7 
A FIXED BIN(7), 
STATUS ENTRY; 


dy 
es 


3; 
DO WHILE (°1°3B); 
CALL AWAIT (3); 
CALL STATUS; 
CALL THRESH (3); 
END /*DO*/;3 
END F3; 
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a.) §4.FL1 
/* 


Prog Name 
Date 
Written by 
For 

Advisor 
Purpose : 


P4.PLI 

December &3 

M. Kadri Ozyurt 

Thesis 

Professor Kodres 

This process is an infinitive loo; 


in which there is only one call to IDLE.PLI repeaditively 
- an interrupt comes along. 
% 


F4:; PROCEDURE; 


DCL AWAIT ENTRY (FIXED BIN(7)) 
THRESH ENTRY (FIXED BIN(7) 
A FIXED BIN(7), 


IDLE ENTRY; 


A=45 
DO WHILE (°1°B); 


CALL IDLE; 


END /*DO*/; 
END P4; 


i 
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APPENDIX BE 


mm eB ew oe SS =e ae oe 


MISCELLANEOUS ASSEMBLY ROUTINES 


A. KEYBOARD.A86 


;Prog Name >: KEYBOARD.A&E6 

>Date : December 8&3 

;Written by Sticekadr: Ozyurt 

;for ; Thesis 

;Advisor : Professor Kodres 

> Purpose : This program receives a formal 


sparameter, KEY, reads the status of the serial I/0 
sinterface chip. If a character has been received from the 
skeyboard, it reads this character and places it to the 
sformal parameter. If there is not a character available 
sit puts a ascii equivalent of zero into the parameter. 
>The reason for that is that zero is not used as a keyboard 
;command. The variables used here are defined in the body 
of ARBITER.A86 


KEYEROARD: 
PUSHF 
Gal 
PUSH AX 
IN AL,PORTST 
CMP AL,RXRDY 
TZ KEYBOARD1 
IN AL,PORTIO 
AND AL,7FH 
JMP KEYBOARD2 
KEYBOARD1: 
MOV AL , 30H 
KEYBOARD2: 
MOV BX, [BX] 
MOV [Bx] SAL 
POP AX 
POPF 
RET 


Soh 





B. ATOD.A86 


>Prog Name : 
>Date : 
peritten by : 
>For : 
,Advisor 

> Purpose : 


;lt reads the output 


ATODPAGE 
Decemter 83 

Me KReaari OZ yar t 
Thesis 


: Professor Kodres 


This program receives tws parameters 
of the A/D converter specified by the 


;second parameter and places it into the first parameter. 
>The variables used here are defined in ARBITER.A85 


me.OD: 
FUSHF 
CLI 
PUSH Si 
PUSH AX 
PUSH BX 
PUSH BX 
PUSH DS 
MOV BK. [2X] >BX=. ARGUMENT (1) 
MOV - AH,@ 
MOV Alo bike 
MOV S1,AA 
MOV AX,SEGCONY 
MOV DS ,AX 
MOV BX ,OFFCONY 
MOV AL, [BX+SI] ;READ A/D PORT 
POP DS 
POP BX 
MOV BX ,2LEX] 
MOV [BX] ,AL 
POP BX 
POP AX 
POP SI 
POPF 
Re 
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C. RINGBELL.A86 


»>Prog Name >: RINGBELL.A&6 

>Date : December 83 

»Written by ; M. Kadri Ozyurt 

3For >: Thesis 

;Advisor : Professor Kodres 

;Purpose : This program sends a bell character to 


>the video terminal. The variables used here are defined in 
;the tody of ARBITER.A86. 


RINGBELL: 
PUSHF 
CLI 
PUSH AX 
CALL WAIT 
MOV AL,BEL 
OUT FORTIO, AL 
Eee AX 
BORE 
RET 


we Se 


on 





D. WAIT .A86 


;Prog Name 


>Date 
»Written 
+For 
»,Advisor 
;Purpose 


by 


+. WR DAO 

: December 83 

s ie haar Ozer t 

>: Thesis 

: Professor Kodres 

: This program program reads the status 


sof the serial I/0 chip and waits until the transmitter is 
;ready to send characters. 


WAIT: 


WAITI: 


we we 


PUSH 


IN 


AND 


JZ 
mor 
RET 


AX 

AL,@DEH +GET STATUS 
AL,1 

WAITI 

AX 


oa 





E.SUSPEND.A86 


;Prog Name : SUSPEND .A86 

>Date : December 8&3 

Written by : M. Kadri Ozyurt 

;For : Thesis 

;Advisor : Professor KXodres 

;Purpose This program stops the real time clock 


»by reseting the mteseiet Dit of the PS¥W. 


SUSPEND: 
CLI 
RET 
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F. RESUME. A86 


»Prog Name 
>Date 
sWritten by 
>For 
;Advisor 
;Purpose 


RESUME .A86 

December 83 

Woe dana  Ocyurt 

Thesis 

Professor Kodres 

This program starts the real time clock 


ee e¢ @@ e8 @¢8@ 


;by reseting the inieeront bit of the PSW. It then reset 
;the counter to zero. 


° 
’ 


RESUME: 
PUSH 
MOV 
OUT 
MOV 
OUT 
MOV 
OUT 
or 
Sr 
RET 


we we 


AX 

AL,CNTR2 sRESET COUNTER 
PORTC ,AL 

AL,CNTRHI 

COUNT ,AL 

AL, EOI] sRESET PIC 
PIC1,AL 

AX 
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APPENDIX F 


DYNAMIC DEEUGGING MODULE LISTINGS 


A. LOCALS AID 


/* 

Prog Name 2 LOGA Los D 

Date : December 83 

Written by : M. Kadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose >: This Zinclude file contains the declara- 


tions of the variables used by the dynamic debugging module 
“wel 


DCL 

BREAKS(@:9) LABEL, 

STOPS(@:9) BIT(1) EXTERNAL, 

(CODE1 ,CODE2,VALUE,H) FIXED BIN(15), 
BREAKPT FIXED BIN(15) EXTERNAL, 
PUTVARS ENTRY, 

REENTRY ENTRY, 

BREAKPTS ENTRY, 

PROMPTUSER ENTRY (FIXED BIN(7)), 
STORESTATUS ENTRY, 

MACTICAL ENTRY, 

DISPLAY ENTRY, 

IDLE ENTRY, 

STATUS ENTRY, 

CHANGEVA ENTRY (FIXED BIN(15),FIXED BIN(15));3 
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EB. ERRHAND.AID 


/* 

Prog Narre : ERRHAND.AID 

Date : December &3 

Written by cee. feciere Oley Wr t 

For : Thesis 

Advisor : Professor Kodres 

Purpose ince oinclude file contains six 


different tyres of PL/I ON condtion bodies. Upon 
intercepting any raised error condition is displayed 

and the control is transfered to PROMPTUSER with a number 
that shows which breakpoint has been past. Then the ON 
condition body is exited with a non-local goto statement. 
At the exit point the control is transfered to REENTRY 
which is the dynamic detugging tool. This call to REENTRY 
is protected during the course of normal operation with an 
if statement which tests the value of ERRORON. 

ay/ 


stops(2)=false; 
stops(1)=false; 
stops(2)=false; 
stops(3)=false; 
stops(4)=false; 
stops(5)=false; 
stops(6)=false; 
stops(7)=false; 
stops(8)=false; 
stops(9)=false; 
On error 

begin; 


put list(°~2’); /*clear screen*/ 
put skip list( “Error #°); 


/*this statement gets the code of the error condition*/ 
codeil=oncode(); 


/*this call prompts the user with the # of breakpoints past 
and asks if the user wants to enter the dynamic debugging 
environment */ 
call promptuser(codel); 
if (key="y’) ! (key=’Y’) then goto errorexit; 
else if codel<=127 then do; 
put skip list(“The program will be abandoned’ ); 
Stop; 
end /*if*/; 
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end /*error*/; 


on fixedoverflow 
begin; 


pum iist(”~ 2°); ‘ 

put skip list(“Fixedoverflow #°); 

codel=oncode(); 

call promptuser (codel); 

if (key="y’) ! (key=’Y’) then goto errorexit; 

else if codel<=127 then do; 
put skip list( “The program will be abandoned’ }; 
Stop; 

end /*if*/; 


end /*fixedoverflow*/; 


on overflow 
tegin; 


pat list(~ Z*); 

put skip list( “Overflow #7”); 

codel=oncode()} 

call promptuser(codel); 

if (key=“y’) ! (key="Y’) then goto errorexit; 

else if codel<=127 then do; 
put skip list(’The program will be abandoned’); 
Stop; 

end /*iP*/; 


end /*overflow*/; 


on underflow 
begin; 


mot inst(~ Z-); 

put skip list(“Underflow #°); 

codel=oncode( ); 

call promptuser(codel1) 5 

if (key="y°) ! (key="°Y") then goto errorexit; 

else if codel<=127 then do; 
put skip list(’The program will be abandoned’ ); 
Stops 

end /*1P*/; 


end /*underflow*/ 5 


on zerodivide 
begin; 


$7 





pueist( °° Z°); 
put skip list(“Zerodivide #’); 
codel=oncode();} 
call promptuser(codel); 
if (key="y’) ! (key="Y"%) then goto errorexit; 
else if codei<=127 then do; 
put skip list(’The program will be abandoned’); 


StOp; 
end /*if%*/; 
end /*zerodivide*/; 
errorexit: 
if erroron then do; 


call reentry(); 
end /*1if*/3; — 
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D. REENTRY.PLI 


/* 

Prog Narre : REENTRY.PLI 

Date : December 83 

Written by ieee tl On ur t 

For : Thesis 

Advisor ; Professor Kodres z : 
Purpose >: This routine is the workhorse of 


the dynamic debugging environment. It calls PUTVARS if 

the user wants to see the external variables.Then it 

calls CHANGEVA if the user wants to change any variable 

with in a loop until no changes are wanted.It then transfers 
9 control to the breakpoint the user desires. 

* 


reentry:proc external; 


/% 
dcl 
oF 
SZinclude “const.inp’; 
%include ‘globals.inp’; 
*%include “locals.aid ; 


put ‘skip list( “You have entered the interactive debugging ° 
, environment.’); 
put skip list(°You will be asked questions about the “, 
“control of program flow’); 
reentryl: 
put skip list(’Do you want a listing of all variables ’, 
ON / Nees) 5 
get list(key); 
if (key="Y°) ! (key=“y’) then call putvars()}; 
put skip list(’Do you want to change the value of any ”, 
“variable(Y/N)?°);3 
get list (key); 
do while ( ((key = °N’) ! (key=’n’)));3 
if (key = yey ! (key="y°) then do; 
put Skip list(’Enter the numter and the new value ’, 
“ (-32768<=value<=+32,767) of the veriable you want to’); 
put skip list‘’ change in integers seperated ty a’, 
“comma. ); 
on error begin; 
put list (°*** bad entry, try again’); 
goto reentry2; 
end /*error*/; 
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on fixedoverflow begin; 
puemlist( *** too large, try again ); 
go to reentrye; 
end /*fixedoverflow*/}3 
reentry2: 
mite skip list(’>*); 
get list (codel,value); 
revert error; 
revert fixedoverflow; 
if codel>maxvars then 
put list( “invalid variable numter’); 
else 
call changeva(codel,value); 
/*end if*/ 
put skip list( “Do you want a listing again .Y/N)?°);3 
get list(key); 
if (key="Y°)!(key="y”) then call putvars(); 
put skip list(’Do you want to change another variable ’, 
“(Y/N)27)5 
end /*d0*/; 
else 
put list(°*** bad entry, try again’); 
/*end if*/ 
get list(key); 
end/*do*/} 
put skip list( “Which breakpoint do you want to transfer the ”, 
“control (@ thru 9, foolowed by return)?’ ); 
get list(key); 
do while ((rank(key)<48) ! (rank(key)>57))3 
put list(°*** bad entry, try again’); 
put skip list(’>”);3 
get list(key); 
end/*do*/; 
codel=rank(key)-48; 
bvreakpt=codel; 
put Skip list(’Fnter the breakpoint you want to stop (2°, 
“thru 9) or any noOn-numeral character if you do not want to ’, 
stop(fol. RET’); 
get list(key); 
if ((rank(key)<48) ! (rank(key)>57)) then do; 
put skip list(’The program will execute beginning from °, 
“the breakpoint’ ,codel); 
erroron=false; 
end /*do0*/; 
else 
do; 
code2=rank(key )-48; 
stops(code2)=true; 
put skip list(’The program will execute between the “, 
“preakpts’,codei,° and °,code2); 
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end /*if*/; 


put skip list{’Is that what you want(Y/N'}?7); 
get list(key); 
if (key=°N’) ! (key='n’) then do; 
put skip list(’Do you want another run(Y/N)?’); 
get list (key); 
if (key="Y°) ! (key=’y’) then goto reentryl; 
end /*if*/; 


end reentry; 


t 
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ys 


/* 
rr 
Da 
Wr 
Fo 
Ad 
Fu 


va 
x / 


pu 


PUTVARS.PLI 
og Nate ; PUTVARS.PLI 
te : December 83 
itten by ; Gimedaorao2 yur t 
r : Thesis 
visor : Professor Kodres 
rpose >: This routine puts selected external 


riables out with PL/I put edit statement. 


tvars:proc external; 


replace max ships by 2, 
true by “1°bd, 
false by “S°%; 
/*ac1*/ 
Zinclude “globals.inp’; 


1=2; 
J=6; 
put skip list( “The listing of all common variables is as ”, 
Promlows. )5 
put skip(2) list(’Fixed binary values:’”); 
put skip edit(°(1)seconds=",seconds,°(Z)minutes=",minutes, 
“(3)hours=",hours,  (4)wake ptr=",wake ptr,’ (5)I=",i)(r(format1)); 
put skip edit(°(6)t_of=",t of, °(7)target=", target, 
“(8&)own=" ,own, (S)known=" ,known, (19 )J=",j)(r(format1) ); 
put skip edit(°(11)t=",t, °(12)t_prime=",t prime, °(13)currentproc=’, 
currentproc)(r(formati)); 
put skip edit(“(14)fourthevc=’ ,fourthevc)(a,f(5)); 
put skip(2) list( “Fixed decimal values: “); 
put skip(2) list( “Boolean values:”); 
put skip edit(’ (15 )engaged=" ,engaged, “(16 )magnified=" »magnified, 
“(17)fired=’,fired, (18)erroron=",erroron) 
(a, b(1), col(2@), a, o(1), col(41),a,t(1), 601 (S5epea, oGiees 
put skip(2) List(’ Fixed decimal values: ”)} 
put skip edit(’ (19) vx_ own=',vx_own, (20)vy_own=",vy_own, 
“(21 )vx _target=" ,vx_ target, (22)vy_ target=" way target) (r/ format2)); 
put skip edit (’ (23 )¥x. rel=",vx_rel, (24) vy_ rel=",vy rel, 
(25)vx_ round=",vx round, “(26 )vy_ round=" hae round) (r(format2))3 
put skip edit(” (27) vr=’,vr,°(28)alpha=’,alpha, 
Stead ax. (oO)ve= , bx) (r(formate) ); 
put skip edit(*(21)cxr=",cx,’(32)ay=",ay, “(Z3)by=", dy, 


(24)ey= ,cy} 
(r(formatz)); 
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put 
put 
put 
put 
put 
put 


put 
put 


put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 


put 


formati: format (a-f(2),c01(16),a.f(2) ,col(31).a,2(2),¢01(44),a, 
format2:format(a,?f(4,1),C01(19) ,a,2(4,1) ,col(37) ,a,?(4,1),col( 


skip edit(°(35)ax_sum=",ax_sum,“(36)bx_sum=",bx_sum, 
i. a sum=" ,cx_ sum) \r(format3) ); 
skip edit(“(38)ay_sum=",ay_sum, (39) by_sum=",by_sum, 
“(46 )cy_ sum=" ,cx_ sum) (r(format3) ); 
skip edit(’(41)x_at5=",x ats, “(42 )y_ at5=",y_at5, 
°(43) r=’ ,r)(r(Zormats)); 
skip edit(’(44)dx dt_at5=",dx dt _ats, “(45 )ay_ dtlatc— 
dy_dt ats, 7(46)ar_ at atS=" ar _dt -at5)(r(format3))3 
skip(2) list(’ Character values:’); 
skip edit(’(47)key=",key)(a(8),a(1))3 
skip(2)list( ‘Arrays: ’)3 
skip edit(°(48)threshold{@)=" ,threshold(d),°(49)threshold(1)=’, 


threshold(1),°(5@)threshold(2)=", threshold(2) ) 
(a,?(5),col(26),a,£(5),col(51),a,2(5) )5 
skip(2) List(” Data ener 7 
skip list(“ship(1): 
skip edit(’ see esursae’ ,course(1), “ (S2)speed=",speed(1), 
“(53 )azimuth=" pazimuth(1), “(54)range=" »range(1))(r(format4)); 
skip edit(°(55)x=",x(1),° (56) y=" e¥(1), (57 )aeaim= "7x. aim(1), 
“(58)y_aim=",y_ aim(1))(r(formatS))3 
skip edit(’(59)count=" pcount(1),° (68)number=" ,number(1), 
“(61)ptr=",ptr(1),°(62)link ship=",link ship(1)) 


(r(formaté) ); 

skip list(“Ship(2):7)5 
skip edit(°(63)course=",course(2), (64) speed=",speed(2), 

“(65)azimuth=",azimuth(2),“(66)range=",range(2))(r(format4))5 
Skip edit(’(67)x=° »x(2), “(68)y=",¥(2),°(69)x_aim=",x_ aim(2), 

“(78)y_aim=".y_ aim(2))(r{format5) )3 
skip edit(’ (71)count=" ycount(2),° (72 )number=" »number(2), 
“(73 )ptr=",ptr(2), (74)link ship=",link ship(2)) 


(r(formaté)); 
skip list( “Gun: ”)}; 
Skip edit(’ (75)az=" raZy “(76 )alt=" ,alt,°(77)x_gun=",x_gun, 
°(78)y_gun=" T_ gun) (r(formatS)); 
skip list ( *wake(ptr(2)): ea 
skip edit(°(79)x wake=" oe wake(ptr(2)), “(8B)y_ wake=', 
y_wake(ptr(2)),°(81)link wake=" , link _wake(ptr{ 2) 
(a,f (7,1), col (20) ,a, Picard. ) ,c01(39),a,2(1))3 
skip edit (2 (82)at=" ,dt)ia, £(4, 2))3 
£(2),c01(59), 
a,f£(5)); 
58 ).a, 
£(4,1))3 


format3:format(a,f (4,1) ,col(24),a,£(4,1),c01(47),a,£(4,1))5 
format4:format(a,f(4,1),col(19) ,a,f(4,1) ,col(3S) ,a, f(4, 1), co1(54),a, 


fia.) )s 


format5:format(a,f(7,1),c0l(19),a,£(7,1),¢01(35) ,a,2(7,1), eee 


£(7,1))5 


TES Ay 3.3 (15) 0 el 2) 001184) acr(2) .001(54) .a 842): 


end putvars; 


184 








F. CHANGEVA.PLI 


/* 

Prog Name 
Date 
Written 
For 
Advisor 
Purpose 


by 


*/ 


>: CHANGEVA.PLI 

: December &3 

; Me Kadri OZyurt 

>: Thesis 

>: Professor Kodres 

>: This routine changes a selected 
external variable specified ty the parameter passed 


Changeva:proc(codel,value) external} 


Got 


(codei,value) fixed bin(15)}3 


Zinclude 
zinclude 


“cons 
“globd 


at 
af 
if 
ia 
at 
if 
ets 
if 
if 
ant 
hots 
oe 
an 
if 
rere 
Bi 
af 
aL ag 
if 
ne 
ot 
ae 
if 
ivf 
ant 
it 
aE 


codei=1 
codel=2 
code1l=3 
codei=4 
ccdeé1=5 
code1=6 
code1i=7 
code1l=8 
codei=9 
code1=19 
codel=i11 
codel=12 
codei=13 
codei=14 
codei=15 
codei=165 
codei=17 
code1=18 
code1=19 
code1l=20 
codei=21 
code1l=22 
code1=23 
codel=24 
codei=25 
codei=26 
codei=27 


then 
then 
then 
then 
then 
then 
then 
then 
then 


then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 


tei hip ; 
als.inp’; 


seconds=binary(value,7)3 

minutes=binary(value,7); 

hours=binary(value, 7)3 

wake_ ptr=binary (value, 7)5 
i=binary (value,15)}3 

t of=binary(value,7); 

target= binary (value, vy; 
own=binary(value, 7); 

known=binary(value,7) 3 
j=binary(value,15); 
t=binary(value,7); 
t_prime=binary(value,7); 
currentproc=binary(value,’7); 
four thevc=binary (value,15)}3 
engaged=bit(value,1); 
Magnified=bit(value,1)3 
fired=bit(value,1); 
erroron=bit(value,1); 
vx_own=decimal(value,4,1 
vy_own=decimal(value,4,1 
vx “ target=decimal(value,; 
vy_target=decimal(value, 
vx_rel=decimal(value,4,1); 
vy _rel=decimal(value,4,1 : 
vx_ round=decimal(value,4,1 
vy_round=decimal(value,4,1 
vr=decimal(value,4,1); 


3 
)5 
4,1); 
4,1); 
)3 
) 


© 
y 
9 


) 
5 
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ag 
Lf 
et 
its 
ak 


Lt 
inf 
it 
et 
Og 
mf 
if 
if 
ak 
if 
bf 
is, 
at 
if 
if 
at: 
if 
if 
et 
if 


agi 
ef 
mf 
af 
ar 


of 
at 


if 
if 
af 
Lf 
if 
Le 
et 
a 
if 
Lf 
i 


af. 
ar 


codel=28 
codel=29 
code1l=52 
code1=21 
codel=32 
code1=33 
code1=34 
code1l=35 
code1=c¢6 
code1=37 
code1=3s58 
code1=39 
codei=4¢d 
codel1=41 
codei=42 
code1i=43 
code1=44 
code1=45 
code1=46 
codel=47 
code1=48 
codel=49 
code1l=598 
code1l=51 
codei1=52 
codel=53 
code1=54 
code1=55 
code1=56 
code1=57 
codel=58 
code1=59 
code1l=60 
codeil=61 
code1l=62 
code1=63 
code1=64 
codei=65 
code1i=66 
code1=67 
code1=68 
code1=69 
codel=79 
code1=71 
codel=72 
code1=73 
code1l=74 
code1=75 
code1=76 
code1=77 


then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 


alpha=decimal(value,4,1);3 
ax=decimal(value,7,2); 
bx=decimal(value,7,2); 
cx=decimal(value,7,2) 3 
ay=decimal(value,7,2); 
by=decimal(value,’7, 
cy=decimal(value,7,2); 
ax sum= © ese ak (Gente 7 
bx_sum=decimal(value,7 
iC 
7 


nM 0 


cx_sum=decimal(value, 
ay_sum=decimal(value, 
by_sum=decimal (value,7, 
cy sum=decimal(value,7,z2 
x at5=decimal(value,7.2); 
y_atS=decimal (value,7,2); 
r=decimal (value,7,2);3 
dx dt “atS=decimal (value, (eco 
dy dt_atS=decimal(value,7,2);3 
dr dt atS5=decimal(value,7,2); 
key=ascii(value); 
threshold (®)=value; 
threshold (1)=value; 
Sage gic Dyeseulnes 
course(1)=decimal(value,4,1)3 
speed(1)=decimal(value,3,1)} 


»<)5 
92) 
»2) 
»2) 
2)5 
)s 


@™e we WE we We we 


azimuth(1)=decimal (value,3,@)} 


range(1)=decimal(value,5,@)} 
x(1)=decimal(value,6, 1)} 
y(1)=decimal (value,6,1)} 
x_aim(1)=decimal(value,6,1 
y_aim(1)=decimal (value,6,1 
count(1)=binary(value,7); 
number(1)=binary(value,7)} 
ptr(1)=binary(value,7); 
link ship(1)=binary(value,7); 
course(2)}=decimal(value,4,1)3 
speed(2)=decimal (value, Sain 
azimuth (2)=decimal(value,3,0) 
range(2)=decimal(value,5,@); 
x{2)=decimal(value,6,1); 

y (2)=decimalivalue,6,1); 

x aim(2)=decimal (value,6,1); 
y_aim(2)=decimal(value,6,1); 
count(2)=binary(value,7); 
number (2)=binary(value,7); 
ptr(2)=binary(value,7); 

link ship(2)=binary(value,7); 
az=decimal(value,4,1); 
alt=decimal (value,4,1); 

x gun=decimal(value,6,1); 


)5 
3 
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if codel=78 
if codei=79 
if code1=82 
if codei=61 
if codei=82 


id changeva; 


then 
then 
then 
then 
then 


y gun=decimal(value,6,1); 

x wake(ptr(2))=decimal(value, 6, 
y. wake(ptr(2))=decimal(value,6 
link wake(ptr(2))=binary(value, 
dt=float(value,7); 


1d? 


1)3 
»1)3 
7)3 





G. BREAKS@.AID 


/* 

Prog Name : BREAKSO.AID 

Date : December 83 

Written by ; M. Kadri Ozyurt 

For : Thesis 

Advisor Professor Xodres 

Purpose This Zinclude file is one of the ten 


Zinclude files ,BREAKS@ through BREAKSS, that are used 
to insert various parts of the programs to be tested. 
They are protected during the normal operation of the 
program under test with an if statement. Within the if 
Statement thereis a call to EREAKPTS 

* / 


REAKS (2): 
BREAKPT=@; 
IF STOPS(BREAKPT) THEN DO; 
CALL BREAKPTS; 
GOTO BREAKS(BREAKPT); 
END /*IF*/; 


108 





H. BREAKPTS.PLI 


/* 

Prog Narre : BREAKPTS.PLI 

Date : December &3 

Written dy ; M.eKRagry Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose >: This routine prompts the user that the 


breakpoint intended to stop has been reached. Then it asks 
if the user wants to transfer the control over the dynamic 
debuggizg environment. If the answer is positive then it 
— REENTRY where the control stays thereafter. 

# 


breakpts:proc external; 
del 
stops(@:9) bit(1) external, 
breakpt fixed bin(15) external, 
key char(1) external, 
erroron bit(1) external, 
reentry entry; 


stops(breakpt )=°8"d; 
put skip list(°***** breakpoint’ ,breakpt,° *****"); 
put skip list(’The execution halted and clock stopped.’ ); 
put skip list(’Do you want to enter the interactive debugging’, 
“environment (Y/N)?°); 
get list(key); 
if (key="Y’) ! (key=“y’) then 
call reentry(); 
else 
erroron=8"»b; 
/*end if*/ 
end breakpts; 
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I. TIMES .AID 


/* 

Prog Name eGo nL 

Date ; December 8&3 

Written by Ue comran oO ay uy t 

For > Thesis 

Advisor : Professor Kodres 

Purpose : This Zinclude file is inserted to 


WAR.FLI to test the execution times of the individual 
oo” routines. 


put skip(2) list (“Do you want to measure the executicn’, 
“times of the modules (Y/N)?’); 
get list (key); 
do while ((key="Y") ! (key=’y’)); 
put skip(2) list(’Enter the number of iterations you want ”, 
Gana ce. or.) 
on error begin; 
put list(°*** bad entry, try again.”); 
goto timesl; 
end /*error*/} 
on fixedoverflow begin; 
put list(°*** too large, try again.”)}; 
goto times1; 
end /*fixedoverflow*/; 
timesl: 
pam SKipi2) list( >’); 
get list(h); 
revert error; 
revert fixedoverflow; 
put skip(2) list(’Get ready for time check. The modules’, 
“ will execute °,h,° times.’); 
do i=1 to 4; 
put skip(2) list(’Ready!! Press any key to start’ 
, the time check of the module’); 
if 4=1 then put list (° IDLE. *); 
else if i=2 then put list(’ STATUS.’); 
peter i=3 then put list(° TACTICAL.” ); 
else put list(” DISPLAY.”); 
get list(key); 
do j=1 to h while (i 
do j=1 to h while (i 
do j=1 to h while (i 
5 i 


}; call idle; end} 
nmecemestatus, end: 
); call tactical; end; 
3 


do to h while ( call display; end; 
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put skip(2)list( “The end of the execution .’); 
put skip(2)list(’Enter the time measured ir ’, 
“seconds.” ); 
on error begin; 
put list(°*** bad entry, try again’); 
go to times2; 
end /*error*/; 
on fixedoverflow begin; 
put list(°*** bad entry,try again.”); 
goto timesé; 
end /*fixedoverfl ow*’; 
timese: 
pitsKki pic isu >) 
get list(j); 
revert error; 
revert fixedoverflow; 
begin; 
dcl duration float; 
duration=float(j)/float(h); 
put skip(2) list(’The execution time of the |, 
module is’ ,duration,’ iterations/sec’); 
end; 
end /*do0*/; 
put skip(2) list(’Do you want another run (Y/N)?’); 
get list(key); 
end /*do*/; 


teal 





APPENDIX G 


—_—wer ee — ap = = = 


A SAMPLE SUBROUTINE TESTING 


/* 

Prog Name sae bare nk 

Date : December 83 

Written ty ; M. Kadri Ozyurt 

For : Thesis 

Advisor : Professor Kodres 

Purpose >: This program is written to test 


individual procedures in an interactive manner. At each 
iteration new values are asked. The PL/I ON condition 
bodies are used to intercept any inadvertantly wrong 
entries. The endless loop can te terminated either C or 

Z from the terminal. In this particular example the 
procedure DRAW inside the body of DISPLAY.PLI is tested by 
lat it external for the test purposes. 


p:proc options(main) ; 


del 
(u,v)(@:18) fired bin(15), 
Gieu.,y)faixed bin(15), 
rub char(1) external, 
d fixed bin(7), 
draw entry ((@:10)fixed bin(15),(@:1@)fixed bin(15) 
wfixed bin(7)); 


on error begin; 
put skip list(°*** bad value, try again’); 
goto reentry; 
end; 


on fixedoverflow begin; 
put skip list(’*** too large, try again’); 
goto reentry; 

end}; 


eee 





a 


reentry: 
rub=ascii(127)3 
do while(°1°b)3; 
Batetist( / 
muu. sKip 115 
put skip lis 
get list(x,y 
pu astC (Zz 
call gen(x,y 
d=1; 
call draw(u,v,d)3 
call delay; 
d=; 
call draw(u,v,d); 
end; 


delay:proc; 
dcl (i,j) fixed bin(15); 


do i=1 to 30000; 
do j=l to 2; 
end; 
end; 
end; 


gen:proc(x,y,u,v)3 


dcl 
(u,v)(@:10) fixed bin(15), 
(x,y) fixed bin(15);3 
u(@)=x+83 v(d)=y;3 
u(1)=x; v(1)=y+8; 
u(2)=x-8;3 v(2)=y; 
u(3)=x;5 v(3)=y-8;3 
u(4)=x+8}3 v(4)=y;3 
u(5)=-13 v(5)=-1;5 
end; 
end p; 
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APPENDIX 1H 


— or ee ee ee ee - 


A SAMPLE PROGRAM TESTING 


/* 

Prog Name 3. DUE e LL 

Date ; December 83 
Written by rome kednr?s, Ozyurt 
For >; Thesis 

Advisor : Professor Kodres 


Furpose >; This is the testing version of the 
procedure IDLE.PLI under the dynamic debugging module. 
After the correct result from the test had been taken, 

the final version of the procedure was made simply removing 
the segment of code in between the comment lines. In order 
to test the program, an interactive main procedure as in 
Appendix G was written. 

Saf 


IDLE: PROCEDURE EXTERNAL; 


/* 
DCL 
7 
ZINCLUDE “CONST.INP’; 
ZINCLUDE “GLOBALS.INP’; 


/eeReROK DEBUG ALD eR / 
SINCLUDE “LOCALS.AID’; 
ZINCLUDE “SRRHAND.AID’; 


SINCLUDE “BREAKS@.AID’; 
/R#RRRRKX BND AID WE RE HE Be He NRK HK / 


DO D=6 TO 5; 
CALL ATOD (D,ARG(D))5 


END /*DO*/; 





/*at this point the A/D output values are fixed vbin(7)} 
values. The following sequence converts those to fixed 
decimal values*/ 


/eeeER DEBUG ALD eee / 
“INCLUDE “BREAKS1.AID‘; 
[RRR END AID ME MEK FE RR KK / 


COURS E(OWN) =ARG(@)3 
SPEED (OWN )=ARG (4); 
COURSE( KNOWN )=ARG(2)3 
SPEED (KNOWN) =ARG(2Z)3 
SAG qi) 

PET oAnG (5); 


’ 


/¥#*EEX DEBUG ALD eR / 


“ZINCLUDE “BREAKS2.AID’$ 
[RRR BND ATD eR RK Ke / 


/*the following sequence converts A/D values to real time 
values by using appropriate proportionality constants*/ 
COURSE(OWN) = COURSE(OWN) * K; 
COURSE( KNOWN) = COURSE(KNOWN) * K; 
AZ = AZ * K; 
IF COURSE(OWN)<2.0 THEN 
COURSE(OWN) = COURSE(OWN) + TWO_PI ; 
IF COURSE(KNOWN }<@.@ THEN 
COURSE( KNOWN) = COURSE(KNOWN) + TWO FI ; 
IF AZ<@.0 THEN 
AZ = AZ + TWO PT; 
IF ALT>9®.@ THEN 
ALT = 93.90; 


[ FRR DEBUG AID ARIK HE IKK AE / 


SINCLUDE “BREAKSS.AID’; 
[RHR END ALD eR / 


SPEED(OWN) = SPEED(OWN)/L; 
SPEED(KNOWN) = SPEED(KNOWN) / L3 


/*ownship speed computations*/ 
X_ OWN = SPEED(OWN) * SIND(COURSZ (OWN) ); 
VY_OWN = SPEED(OWN) * COSD(COURSE (OWN )); 


/RERRKE DYRBUG AID MK AE HK NIK / 


“INCLUDE “BREAKS4.AID‘; 
[eM END ALD eae / 


3 








/*when not have fired, the following makes the tallistic 
computations */ 
If FIRED THEN 
BEGIN; 
T OF = 2.9 * VM * SIND(ALT) / G3 


/RRREEX DYDORUG ALD ***eRX / 


SINCLUDE “BREAKSS.AID“; 
/RRRREER END ALD *RR RRR KE / 


VR = YM * COSD(ALT); 
R = VR * T OF} 


/#RREEE DEBUG AID MEM He AE HE / 


SINCLUDE “BREAKS6.AID’; 
[RARER END ALD eR RK / 


X_AIM(OWN) 
Y_AIM(OWN) 
X_GUN = 2.03 
Y_GUN = 0.03 


R SS SINDGa) 5 
R * COSD(AZ);3 


/¥*REKX PRBUG AID BE NE IK I AK IK / 


SINCLUDE “BREAKS7.AID‘; 
/RRRRRBK BND ALD eae aK / 


VX ROUND = VR * SIND(AZ) 
VY_ROUND = VR * COSD(AZ) 


e 
g 
e 
9 


/RHHRRE DEBUG AID WIE KK AE / 


YINCLUDE “BREAKSS8.AID’; 
[RRR RNY ALD eR RA / 


T = T OF} 
END /*1F*/} 


/eeeeee DEBUG ALD RRR / 


SINCLUDE “BREAKSS.AID’; 
/RERRBRR BND ALD RRR / 


END IDLE; 


LLG 
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